Вычислить значение выражения - Turbo Pascal (34013)

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

Задача: Заданы числа Х и У. вычислить значение выражения Х*У-Z, если известно, что Z представляет собой произведение Х*У, из которого вычеркнуты все цифры 5. Требуется написать код.

Решение задачи: «Вычислить значение выражения»

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

program xyz;
 
var x, y, z, t, i: integer;
begin
  write('x = ');
  readln(x);
  write('y = ');
  readln(y);
  t := x * y;
  writeln('x * y = ', t);
  i := 1;
  z := 0;
  while t <> 0 do
    begin
      if abs(t mod 10) <> 5 then
        begin
          z := (t mod 10) * i + z;
          i := i * 10
        end;
      t := t div 10
    end;
  writeln('z = ', z);
  writeln('x * y - z = ', x * y - z);
  readln
end.

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

Создается программа xyz на языке Turbo Pascal.
Объявляются переменные: x, y, z, t, i типа integer.
Выводится запрос на ввод значений переменных x и y.
Значения переменных x и y считываются из ввода.
Вычисляется произведение x и y и сохраняется в переменной t.
Выводится результат произведения x и y.
Инициализируется переменная i со значением 1.
Инициализируется переменная z со значением 0.
Запускается цикл while, который выполняется до тех пор, пока значение переменной t не станет равным нулю.
В цикле проверяется остаток от деления значения переменной t на 10. Если этот остаток не равен 5, то выполняется следующая часть условия:
- Переменная z инициализируется как произведение остатка от деления на 10 и значения переменной i, увеличенное на текущее значение переменной z.
- Значение переменной i умножается на 10.
Значение переменной t делится на 10.
Проверка повторяется.
Когда значение переменной t становится равным нулю, цикл завершается.
Выводится значение переменной z.
Выводится значение выражения x * y - z.
Запрашивается ввод с клавиатуры.