Uses crt; var a:integer; begin for a:=10000 to 99999 do if (a mod 133=125) and (a mod 134=111) then writeln(a); end. из этой про
Uses crt; var a:integer; begin for a:=10000 to 99999 do if (a mod 133=125) and (a mod 134=111) then writeln(a); end. из этой программы сделать программу с циклом repeat