Найти все двузначные числа,которые кратны числу N(программирование паскаль)

var n, i: integer;

begin

cls; writeln ( \'Введите число n.\' ); readln ( n ); writeln ( \'Двузначные числа, кратные данному n: \' ); for i := 10 to 99 do if i mod n = 0 then writeln ( i ); // с помощью mod находим остаток от деления, в указанном случае он должен быть равен 0.end.