Решения задач на тему ввода и вывода данных в Pascal

Решение задачи №8

program eight;

var
   a,b:real;

begin
     write('a=');
     read(a);
     write('b=');
     read(b);
     write('(a+b)/2=',(a+b)/2);
end.

Назад