vara,b,i,k:integer;begink:=0;for i:= 1000 to 9999 dobegin a:= i div 100; b:= i mod 100; if ((a div 10)+(a mod 10))=((b div 10)+(b mod 10)) then k:=k+1;end;writeln('Счастливых чисел: ',k);end.
var
a,b,i,k:integer;
begin
k:=0;
for i:= 1000 to 9999 do
begin
a:= i div 100;
b:= i mod 100;
if ((a div 10)+(a mod 10))=((b div 10)+(b mod 10)) then k:=k+1;
end;
writeln('Счастливых чисел: ',k);
end.