Question

Определить, равна ли сумма двух первых цифр заданного четырехзначного числа сумме двух его последних цифр

Answer 1

var
str:string;
begin
readln(str);

if ((ord(str[1])+ord(str[2])) = (ord(str[3]) + ord(str[4]))) then write('Сумма равна')
  else write('Сумма неравна');

end.

Answer 2

Uses crt;
var x:integer;
begin
     write('Введи число:');
     readln(x);
     if (x>=1000) and (x<=9999) then
          if (x div 1000)+(x div 100 mod 10)=(x mod 10)+(x mod 100 div 10) then
             writeln('yes')
          else writeln('no')
     else writeln('error');
end.