1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
uses crt;
var a,b,c,d,s1,s2,t:integer; k:boolean;
begin
clrscr;
write('Введите четырех значное число: '); readln(t);
a:=t div1000;
b:=(t mod1000)div100;
c:=(t mod100)div10;
d:=t mod10;
s1:=a+b;
s2:=c+d;
k:=s1=s2;
writeln(k);
readlnend.