В этой программе надо было ввести четырёхзначное натуральное число, разрезать его на две половинки, развернуть каждую из них задом наперёд, и, получившиеся при этом числа, сложить
и выдать в качестве ответа.
Пример 1: 1234
Вывод 1: 21 + 43 = 64
Пример 2: 4567
Вывод 2: 54 + 76 = 130
Программист допустил ошибку в вычислениях и в выводе данных. Исправьте эти ошибки.
Var a, b, c, d, p, r, x: integer;
begin
readln(x);
a := x div 1000;
b := x div 100 mod 10;
c := x div 10 mod 10;
d := x mod 10;
p := b + a;
r := d + c;
writeln( p , ’ + ’, r) ;
end.