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

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

program three;

var
   a,b:real;

begin
     write('a=');
     read(a);
     write('b=');
     read(b);
     writeln('S=',a*b);
     write('P=',2*(a+b));
end.

Назад