Program DomZ1;
var a, b, c: real;
Begin
writeln('введите значение числа a и b');
Readln(a,b);
c:=(a+b)/2;
Writeln('ответ равен ',c:3:1);
readln;
End.
Задание :
1.откомплировать,проверить ее действие для чисел 5 и 8 ,-5 и 5,-10 и -5
2.Выяснить значение программы и составить алгоритм в виде блок-схемы