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

Question

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

Answer 1

//Pascal ABC.NET v3.1 сборка 1172

//Продвинутый вариант

Var
 n:integer;
begin
 readln(n);
 range(10,99).Where(x -> x mod n=0).Print(',');
end.

//"Школьный" вариант

Var
 i,n:integer;
begin
 readln(n);
 for i:=10 to 99 do
 if i mod n=0 then write(i,',');
end.

Пример ввода:
3
Пример вывода:
12,15,18,21,24,27,30,33,36,39,42,45,48,51,54,57,60,63,66,69,72,75,78,81,84,87,90,93,96,99

Answer 2

//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