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

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.