program twenty;
var s:string;
number: array[0..3] of integer;
begin
writeln('Введите четырехзначное число');
Readln(s);
if length(s)=4 then
begin
number[0]:=strtoint(s[1]);
number[1]:=strtoint(s[2]);
number[2]:=strtoint(s[3]);
number[3]:=strtoint(s[4]);
if number[0]+number[1]=number[2]+number[3] then writeln('true') else writeln('false');
end
else writeln('Введено не четырехзначное число!');
end.