Определить наличие сдачи с покупки картофеля - Pascal ABC

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

Добрый день. Помогите пожалуйста с написанием программы на языке Паскаль. Вот условие, по которому нужно написать программу Покупатель приобрел К кг картошки по X рублей и L кг моркови по Y рублей. За все он заплатил S рублей. Рассмотреть 3 варианта: «Ваша сдача Z рублей», «Вам нужно доплатить Z рублей» и «Спасибо за покупку».

Решение задачи: «Определить наличие сдачи с покупки картофеля»

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

var X, K, Y, L, sum, S, Z : real;
 
BEGIN
     Write('Почем картошка? ');
     ReadLn(X);
     Write('Сколько Вам картошки? ');
     ReadLn(K);
     Write('Почем марковка? ');
     ReadLn(Y);
     Write('Сколько Вам марковки? ');
     ReadLn(L);
     sum:= X*K + Y*L;
     WriteLn;
     WriteLn('Заплатите, пожалуйста ', sum, ' руб.');
     WriteLn;
     Write('Получено наличными: ');
     ReadLn(S);
     Z:= sum - S;
     if Z=0 then
        WriteLn('Спасибо за покупку!')
     else if Z > 0 then
          WriteLn('Ваша сдача ', Z, 'руб.')
     else WriteLn('Вам нужно доплатить ', abs(Z), 'руб.');
END.

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

Создается переменная X и присваивается ей значение, полученное от пользователя.
Создается переменная K и присваивается ей значение, полученное от пользователя.
Создается переменная Y и присваивается ей значение, полученное от пользователя.
Создается переменная L и присваивается ей значение, полученное от пользователя.
Вычисляется сумма XK + YL и присваивается переменной sum.
Выводится сообщение Заплатите, пожалуйста, sum, ' руб.' с помощью функции WriteLn.
Считывается значение наличных денег от пользователя с помощью функции ReadLn.
Вычисляется переменная Z как разность суммы и значения наличных денег: Z= sum - S.
Проверяется значение переменной Z: если оно равно нулю, выводится сообщение Спасибо за покупку! с помощью функции WriteLn.
Если значение переменной Z больше нуля, выводится сообщение Ваша сдача, Z, 'руб.' с помощью функции WriteLn.
Если значение переменной Z меньше нуля, выводится сообщение Вам нужно доплатить, abs(Z), 'руб.' с помощью функции WriteLn.