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

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.