// Модуль консолиuses crt;// Объявляем переменную для хранения ввода с клавиатуры. var R:integer;begin // Выводим сообщение writeln('Введите радиус. '); // Вводим с клавиатуры данные readln(R); // Проводим расчеты writeln('P = ', 2 * 3.14 * R); writeln('S = ', 3.14 * R * R);end.