Програма, яка виводить на екран всі щасливі чотиризначні числа (наприклад 1340): program chasluve_chislo; var i,a,b,c,d: integer; begin for i:=1000 to 9999 do begin a:= i div 1000; b:= (i - a*1000) div 100; c:= (i - a*1000 - b*100) div 10; d:=i mod 10; if (a+b=c+d) then writeln (i); end; readln end.