Вычислить стоимость поездки на разных автомобилях при известном расходе, расстоянии и цене на топливо. - Turbo Pascal

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

22. Человеку нужно съездить из Лондона в расположенный в 390 милях Эдинбург. Он может ехать на автомобиле марки Роллс-Ройс, либо на автомобиле марки Форд Эскорт. Роллс-Ройс расходует 1 галлон бензина на каждые 15 миль пути. Форд Эскорт расходует 1 галлон бензина на каждые 36 миль пути. Сколько будет стоить поездка в Эдинбург на Роллс-Ройсе, если стоимость 1 галлона бензина составляет Х фунта? Сколько денег он сбережет, если вместо этого он поедет на машине марки Форд Эскорт?

Решение задачи: «Вычислить стоимость поездки на разных автомобилях при известном расходе, расстоянии и цене на топливо.»

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

var
  Rolls,Rolls1,ford,ford1,eko,x:real;
  begin
    write('Введите стоимость бензина - ');
    readln(x);
    Rolls:=390/15;
    ford:=390/36;
    Rolls1:=Rolls*x;
    ford1:=ford*x;
    eko:=Rolls1-ford1;
    writeln('Если человек поедет на машине марки Форд Эскорт, он сэкономит ',eko:5:2,' фунтов');
    readln
  end.

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

Создается переменная Rolls и присваивается ей значение 390/15, что означает расход топлива на 100 км для автомобиля Rolls-Royce.
Создается переменная ford и присваивается ей значение 390/36, что означает расход топлива на 100 км для автомобиля Ford.
Создается переменная Rolls1 и присваивается ей значение произведения переменной Rolls на значение переменной x, то есть стоимость поездки на автомобиле Rolls-Royce.
Создается переменная ford1 и присваивается ей значение произведения переменной ford на значение переменной x, то есть стоимость поездки на автомобиле Ford.
Создается переменная eko и присваивается ей значение разницы между стоимостью поездки на автомобиле Rolls-Royce и автомобиле Ford, то есть экономия топлива.
Выводится сообщение о том, сколько фунтов сэкономит человек, если он поедет на машине марки Форд Эскорт.
Программа завершается, и пользователю предлагается ввести данные для расчета стоимости поездки.