Дан радиус окружности. Найти ее диаметр. - Pascal

Помогите решить простые задачи мозги кипят: 2-я. Дан радиус окружности. Найти ее диаметр.

Листинг программы

Var
  r: Real;
BEGIN
Write('Введите радиус: ');
Readln(r);
Writeln('Диаметр окружности = ',2*r:5:5);
Readln
END.

Объяснение кода листинга программы

В данном коде происходит следующее:

Объявляется переменная r типа Real, которая будет использоваться для хранения значения радиуса окружности.
Выводится сообщение Введите радиус:, чтобы пользователь мог ввести значение радиуса.
Считывается введенное значение с помощью функции Readln().
Выводится сообщение Диаметр окружности =, чтобы пользователь мог увидеть результат вычисления диаметра.
Значение переменной r умножается на 2 и округляется до 5 знаков после запятой с помощью функции Writeln().
Выводится символ новой строки Readln() для перехода на следующую строку ввода.