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

спасибо большое

Uses crt;var a:integer;begina:=10000;repeatif (a mod 133=125) and (a mod 134=111) then writeln(a);a:=a+1;until a>99999;end.