Перевод лет в секунды - Pascal ABC

Формулировка задачи:

В году примерно 3.156х10⁷сек. Написать программу, которая запрашивает возраст в годах и переводит его в секунды.

Решение задачи: «Перевод лет в секунды»

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

const
    SIY = 3.156E7;
var
    year: Real;
begin
    Write('Введите возраст в годах: '); ReadLn(year);
    Write('Возраст в седундах: ', SIY * year:0:0);
end.

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

В строке const определяется константа SIY равная 3.156E7.
В строке var объявляются две переменные: year типа Real и SIY также типа Real.
В строке begin начинается выполнение программы.
В строке Write('Введите возраст в годах: ') происходит вывод сообщения в консоль, предлагающего пользователю ввести значение переменной year.
В строке ReadLn(year) происходит чтение значения переменной year из консоли.
В строке Write('Возраст в седундах: ', SIY * year:0:0) происходит вывод значения переменной year умноженной на константу SIY в консоль.