Составьте программу, печатающую значение TRUE,если указанное высказывание является...

Question

Составьте программу, печатающую значение TRUE,если указанное высказывание является истинным, и FALSE в противном случае: сумма двух первых цифр заданного четырехзначного числа равна сумме двух его последних цифр
В паскале

Answer 1

Program Znanija;
var n, a, b, c, d:integer;

begin

readln(n);

a:=n div 1000;
b:=n div 100 mod 10;
c:=n div 10 mod 10;
d:=n mod 10;

if (a+b)=(c+d) then
writeln("True");
else
writeln("False");

end.