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