Найти все числа, которые делятся на n среди: а)всех двузначных чисел; б)всех трёхзначных чисел.

Var
i,n:longint;
begin
readln(n);
for i:=10 to 99 do
  if i mod n=0 then writeln(i);
end.
во втором случае цикл начинаем со 100 и до 999