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

Program l;
uses crt;
var
r,s:real;
begin

writeln('Введите радиус:');
read(r);
s:=pi*sqr(r);
writeln('Площадь равна: ',s:2:2);

end.