const Pi = 3.1415;
var
r: real; // радиус круга
S: real; // площадь круга
begin
write('Введите радиус круга: ');
readln(r);
S := Pi*r*r;
writeln('Площадь круга равна ',S);
end.
Здесь иллюстрируется ввод, затем вычисления и
вывод результата. Входные и выходные переменные описаны на разных строчках,
описание сопровождается комментарием