Составьте программу, которая выведет на экран сумму, накопленную Юрой за год - PascalABC.NET

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

Каждую неделю Юра получает деньги на мелкие расходы. Из них он тратит Х рублей на сладости. Это составляет одну четверть того, что он получает еженедельно. Юра сберегает одну треть того, что остается после покупки сладостей. Составьте программу, которая выведет на экран сумму, накопленную Юрой за год. Составить алгоритм и программу.Результат записывать в файл output.txt

Решение задачи: «Составьте программу, которая выведет на экран сумму, накопленную Юрой за год»

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

begin
  var x := ReadlnReal('X =');
  var week := x * 4;
  writeln(((week - x) / 3) * 52);
end.

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

Пользователю предлагается ввести значение переменной X с клавиатуры.
Введенное значение сохраняется в переменной x.
Переменной week присваивается значение, равное произведению x на 4.
На экран выводится значение выражения (((week — x) / 3) * 52).