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