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

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

program seven;

var
   R:real;
begin
     write('R=');
     read(R);
     writeln('L=', 2*3.14*R);
     write('S=', 3.14*R*R);
end.

Назад