Дан радиус окружности, найдите площадь круга (информатика)

Var r,l,s:real;

beginwrite(Введите радиус окружности R = );
readln(r);
s:=pi*r*r;
write(Площадь круга = ,s:0:2);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.