объясните пожалуйста, что значит в этой программе "n", а что "k".
Задача по которой написала:
Дана последовательность чисел, сначала вводятся количество цифр, а затем сами числа. Найти в этой последовательности максимальное число кратное 3.​

Мы ищем максимальное число, кратное 3. Но в данной программе нет проверки на максимальное число.

Если мы введём кратные числа трём в таком порядке: 24,9,3,

то мы получим ответ 3. Но оно не будет максимальным кратным, т.к 24 должно быть максимальным.

Внёс изменения в программу, добавив переменную max, которая не использовалась.

Эта задача на ввод неопределённого количества чисел в последовательности, которая требует после ввода всех чисел ввести 0.

var n,k,max:integer;

begin

 k := 0;

 repeat

write('Введите числа: ');

readln(n);

if (n mod 3=0) and (n>max) then

 k := n;

 max:=n

 until n=0;

 writeln('Максимальное число кратное 3: ', k);

end.

n - вводимые числа, которые проверяются на кратность 3.

k - переменная, в которую записывается число n, которое кратное 3.

max - записывает в себя максимальное число, кратное трём. В дальнейшем, чтоб цикл не допускал кратные числа n, которые меньше max.

===

Изменил программу по условию задачи:

var x,n,k,max:integer;

begin

 k := 0;

  write('Введите количество чисел : ');

  readln(n);

 repeat

  write('Введите числа : ');

  readln(x);

 if (x mod 3=0) and (x>max) then

   k := x;  

   max:=x;  

   n:=n-1;

 until n=0;

 writeln('Максимальное число кратное 3: ', k);

end.

n - Количество чисел на входе.

x - вводимые числа, которые проверяются на кратность 3.

max - записывает в себя максимальное число, кратное трём. В дальнейшем, чтоб цикл не допускал кратные числа n, которые меньше max.