Найти все двузначные числа, которые делятся на n или содержат цифру n. ! умоляю

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

pascal abc

program z1;  

var a,s: integer;   //описание переменных

begin

readln(a);   //вводим первое число

s: =0;   //начальное значение суммы

while a< > 0 do //условие ввода (ввод оканчивается нулем)

 
begin

    if (a mod 10=4) and (a mod 6=0) then s: =s+a;   //проверка двух условий:                           первая скобка - оканчивается на 5, вторая - кратно 6

    readln(a)
//заново вводим число

  end;

writeln(s)   //вывод суммы, когда весь цикл завершится

end.

p.s не особо понимаю, почему с таким вводом, такой ответ у тебя получается

Массив   - это однородный, структурированный  тип данных   с прямым доступом к элементам.  к любому элементу массива можно обратиться, указав имя массива и индекс элемента в массиве.  если в массиве для обращения к элементам используется только один порядковый номер, то такой  массив называется линейным, или одномерным . одномерный массив можно представить в виде таблицы, в которой существует только одна строка.  количество индексов элементов массива определяет размерность массива.  массивы с двумя индексами называют двумерными . такие массивы можно представить в виде таблицы, в которой номер строки соответствует первому индексу, а номер ячейки в строке (номер столбца) - второму индексу.