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

program true_or_false;
uses crt;
var a, b, c, d, e, r, p:integer;
begin
Repeat
clrscr;
writeln('Введите число');
readln(a);
until (a>=1000)and(a<=9999);
b:=a div 1000;
c:=(a div 100)mod 10;
d:=(a div 10) mod 10;
e:=a mod 10;
r:=b+c;
p:=d+e;
If r=p then
begin
writeln('Высказывание верно');
end
else
begin
writeln('Высказывание врёт');
end;
readln;end.

program zaterynnue_v_kosmose;
uses crt;
var x, y, z:integer;
begin
clrscr;
writeln('Введите свои три числа');
readln(x, y, z);
If ((y=x+1)and(z=y+1))or((y=z+1)and(x=y+1)) then
begin
x:=2*x;
y:=2*y;
z:=2*z;
writeln(x,' ',y,' ',z);
end
else
begin
x:=-x;
y:=-y;
z:=-z;
writeln(x,' ',y,' ',z);
end;
readln;end.

program ludvig_fon_17;
uses crt;
var t:integer;s, c, h, a:real;
begin
Repeat
clrscr;
writeln('Введите цифру элемента, который дан');
readln(t);
until (t=1)or(t=2)or(t=3)or(t=4);
If t=1 then
begin
writeln('Введите значение катета');
readln(a);
c:=sqrt(2*sqr(a));
h:=sqrt(sqr(a)-sqr(0.5*c));
s:=0.5*a*a;
writeln('гипотенуза - ', c);
writeln('высота - ', h);
writeln('площадь - ',s);
end;
If t=2 then
begin
writeln('Введите значение гипотенузы');
readln(c);
a:=sqrt((sqr(c))/2);
h:=sqrt(sqr(a)-sqr(0.5*c));
s:=0.5*a*a;
writeln('катет - ', a);
writeln('высота - ', h);
writeln('площадь - ',s);
end;
readln;end.