Составить программу вычисление площади круга.

Program prog;
uses crt;
var
  s,r: real;
begin
  Write('Радиус круга  =  ');
  readln(r);
 
  if r>0 then begin
  s:=pi*sqr(r);
  writeln('S = ',s:0:3);
  end
  else writeln('Неверный радиус');
 
end.