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

program prog;uses crt;var  s,r: real;begin  Write('Радиус круга  =  ');  readln(r);  s:=pi*sqr(r);  writeln('S = ',s:0:3);  end.