Напишите на паскале (авс). : среди всех четырехзначных натуральных чисел вывести на экран "особо счастливые", у которых сумма цифр в четных разрядах равна сумме цифр в нечетных.

var i,j,k,l:integer;
begin
for i:=1 to 9 do
 for j:=0 to 9 do
  for k:=0 to 9 do
   for l:=0 to 9 do
if i+k=j+l then writeln(i*1000+j*100+k*10+l);
end.

Результат:1001
1012
1023
...
9977
9988
9999