Помогите только задание 3 (дам 20 б)

var

 r: Real;   // объявление переменной для радиуса

begin

 r := 3;

//  Write ('Введите радиус круга: ');

//  ReadLn (r);   // можно запросить радиус для ввода с клавиатуры, для этого "раскомментируйте" эти 2 строчки

 Write ('Диаметр окружности радиуса ', r:5:2, ' одинаково ', r * 2:5:2);   // :5:2 - длина выводимого значения = 5, с 2-мя знаками после запятой, можно изменить

end.