составить программу на языке паскаль для нахождения площади круга, имея алгоритм решения задачи, записанный с помощью блок схем

var s,r:real; //делаем переменные
begin
readln(r); //считываем радиус
s := pi * r ^ 2; //высчитываем площадь
writeln (s); //сообщаем площадь
end.