Решение должно корректно работать в PascalABC.NET, версии не выше 2.2 Определить, равна ли сумма первых двух цифр натурального числа сумме последних двух цифр.

var n: integer; s1, s2: integer; begin readln(n); s1 := n mod 10 + n div 10 mod 10; while n>99 do n:=n div 10; s2 := n mod 10 + n div 10 mod 10; if s1 = s2 then writeln('Равна') else writeln('Не равна'); end.

// PascalABC.NET 3.1, сборка 1171 от 15.02.2016 var   i,n,n1,e,s1,s2:integer;   s:string; begin   Write('Введите натуральное число: '); Read(n);   Str(n,s); Val(Copy(s,1,2),n1,e);   s1:=(n1 div 10)+(n1 mod 10);   s2:=(n mod 10)+((n mod 100) div 10);   if s1=s2 then Writeln('Суммы равны')   else Writeln('Суммы не равны') end. Тестовое решение: Введите натуральное число: 250370 Суммы равны