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;
begin
a:=10000;
repeat
if (a mod 133=125) and (a mod 134=111) then writeln(a);
a:=a+1;
until a>99999;
end.