Question

В приложении Pascal ABC напишите программу:
– для вычисления по формуле A=пr'2, если даны два ненулевых числа.

Answer 1

var
  r,p:real;
begin
  p:=3.1416;
  Write('r=');
  Readln(r);
  Writeln(p*r*r);
  Write('r=');
  Readln(r);
  Writeln(p*r*r);
end.