program Program1_4 var word real begin for 1000 to 9999 do begin mod 1

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
program Program1_4;
var x: word; y: real;
begin
for x:=1000 to 9999 do
begin
y:=x mod 133;
if y=125 then
begin
y:=x mod 134;
if y=111 then writeln(x,' ');
end;
end;
end.