Помогите пожалуйста по информатике напишите программу вычисления площади круга (радиус не дан просто программу)

Pascal:

Program Plos;
var r,s:real;
begin
writeln('Введите радиус');
readln(r);
s:=pi*r*r;
writeln('Площадь равна = ',s);
end.