Найти все двузначные числа, которые кратны числу 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.