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

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

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

1,5 Мбайт=1,5*2^10(перевод в килобайты)*2^10(перевод в байты)*2^3(перевод в биты)=1,5*2^23(23-так как степени складываются).
128000 бит= 100*2^7бит
Расчет времени: 1,5*2^23/100/2^7=1,5*2^16/100

Y+z+z+y+y+z=3y+3z=3(y+z)

1010
1100
0110
1001
0011
0101