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

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.

Var str: string; begin readln(str); if ((ord(str[1])+ord(str[2])) = (ord(str[3]) + ord( then write('сумма равна')   else write('сумма неравна'); end.

1.

program xxx;

var i, n : integer

begin

  writeln ('введите число n=');

  readln (n);

  writeln ('делители числа: ');

  for i: = 1 to n do

      if n mod i = 0 then writeln (i);

  readln

end.

var

n: integer;

begin

readln(n);

case n mod 12 of

4: writeln('год крысы');

5: writeln('год коровы');

6: writeln('год тигра');

7: writeln('год зайца');

8: writeln('год дракона');

9: writeln('год змеи');

10: writeln('год лошади');

11: writeln('год овцы');

0: writeln('год обезьяны');

1: writeln('год петуха');

2: writeln('год собаки');

3: writeln('год свиньи');

end;

end.