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

//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016) var a,i:integer; begin   write('Введите число ');   readln(a);   for i:=10 to 99 do     if i mod a = 0 then writeln(i,' кратно ',a); end. Тестовое решение: Введите число 6 12 кратно 6 18 кратно 6 24 кратно 6 30 кратно 6 36 кратно 6 42 кратно 6 48 кратно 6 54 кратно 6 60 кратно 6 66 кратно 6 72 кратно 6 78 кратно 6 84 кратно 6 90 кратно 6 96 кратно 6