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

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

program one;

var
   a:real;
   
begin
     write('a=');
     read(a);
     write('P=',4*a);
end.

Назад