Написать программу, которая обретает все двузначные числа которые делятся на n.Pascal.

var
   n, i : integer;  // объявляем переменные
begin
  write(Введите число: );  // выводим строку на экран
  readln(n);  // считываем значение, введенное с клавиатуры
   for i := 10 to 99 do  // перебираем все двузначные числа
     begin
      if (i mod n = 0) then writeln (i);  // если число i без остатка делится на n выводим его на экран
     end

end.