var
r: Real; // объявление переменной для радиуса
begin
r := 3;
// Write ('Введите радиус круга: ');
// ReadLn (r); // можно запросить радиус для ввода с клавиатуры, для этого "раскомментируйте" эти 2 строки
Write ('Диаметр окружности радиуса ', r:5:2, ' равно ', r * 2:5:2); // :5:2 - длина выводимого значения = 5, с 2-мя знаками после запятой, можно изменить
end.