Напишите,,программу. : найдите все целые трехзначные числа которые делятся на 11 и 3.

Program z1;
var x:integer;
begin
for x:=100 to 999 do
if (x mod 11=0)and(x mod 3=0) then
write (x,' ');
end.