var n: integer;
begin
for n := 1 to 1000 do
if (n mod 11 = 0) and (n mod 17 = 0) then
writeln(n);
end.
Объяснение:
