Когда ты запускаешь консольное приложение кликая по exe-файлу, чтобы окно не закрылось нужно ожидать ввода. В Pascal это можно сделать с помощью ReadLn, например:Код
const Pi = 3.1415;
var
r: real; // радиус круга
S: real; // площадь круга
begin
write('Введите радиус круга: ');
readln(r);
S := Pi*r*r;
writeln('Площадь круга равна ',S);
writeln('Нажми Enter');
readln;
end.
