Составить Алгоритм поиска 4-х значного числа ,которое при делении на 133 даёт в остатке 125, а при делении на 134 даёт в остатке 111.
program senya;
var
a1, a2, a3, a4: integer;
begin
for a1 := 1 to 9 do
for a2 := 0 to 9 do
for a3 := 0 to 9 do
for a4 := 0 to 9 do
if (a1 * 1000 + a2 * 100 + a3 * 10 + a4) mod 133 = 125 then
writeln (a1,a2,a3,a4);
if (a1 * 1000 + a2 * 100 + a3 * 10 + a4) mod 134 = 111 then
end.