Умоляю, нужно,ответ отмечу как лучший)написать программу, найти среди двухзначных чисел те, которые делятся на 2 и на 11 без остатка.

Var i:integer;
begin
writeln('Делятся на 2 и 11');
for i:=11 to 99 do if (i mod 2 = 0) and (i mod 11 =0) then Write(i,'  ');
end.