Будь-ласка, допоможіть вирішати задачу за паскальом

[Наталія01]

Завдання.
Визначити чи дорівнює сума двох перших цифр заданого чотиризначного числа сумі двох його останніх сторін.

[Хыиуду]

tmp1:= x div 100;
tmp2:= x mod 100;
if tmp1 div 10 + tmp1 mod 10 = tmp2 div 10 + tmp2 mod 10
then writeln('Та');
else writeln('Нi');