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

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