До ть будь ласка розв'язати ребус ! ів​

Var
  x, a, b, c, y: integer;

begin
  Write('Введите целое трехзначное положительное число ->');
  Readln(x);
  a := x mod 10;
  y := 100 * a + (x div 10);
  Writeln('Первоначальное число было: ', y);
  b := y mod 100;
  Writeln('Зачеркнули первую цифру: ', b);
  b := 10 * b;
  Writeln('Умножили на 10: ', b);
  b := b + (y div 100);
  Writeln('Прибавили зачеркнутую цифру: ', b);
  Writeln('И получили введенное нами число - результат')
end.

Тестовое решение:
Введите целое трехзначное положительное число ->183
Первоначальное число было: 318
Зачеркнули первую цифру: 18
Умножили на 10: 180
Прибавили зачеркнутую цифру: 183
И получили введенное нами число - результат

Наливаем в 5-литровую ёмкость 5 литров. Выливаем эти 5 литров в трехлировую емкость, тогда в пятилитровой емкости остнется 2 литра.
Выливаем воду из трехлитровой ёмкости. Переливаем в неё  2 литра из пятилитровой ёмкости  и наливаем воду в пятилитровую воду. Всего 7 литров: 2 литра в трехлитровой  и 5 литров в пятилитровой

5 - литровая      3-литровая
5                          0         1 шаг:  наливаем в пятилитровую, трехлитровая пустая
2                          3         2 шаг:  вылили три литра в трехлитровую, 2 литра осталось в пятилитр.
2                          0          3 шаг  вылили воду из трехлитровой, в пятилитровой остаток 2 литра
0                          2          4 шаг вылили 2 литра из пятилитровой в трехлитровую
5                          2           5 шаг наливаем 5 литров в пятилитровую и 2 литра имеет в трехлитровой
       всего 7