Запрашивать числа до тех пор, пока не будет введено первое число, кратное 3 - Pascal

Формулировка задачи:

Составить программу, которая будет запрашивать числа до тех пор, пока не будет введено первое число, кратное 3, и вычислить количество введенных чисел.

Решение задачи: «Запрашивать числа до тех пор, пока не будет введено первое число, кратное 3»

Листинг программы

var
  k, i: integer;
 
begin
  k := 0;
  repeat
    write('Введите число: '); 
    readln(i);
    inc(k);
  until (i mod 3 = 0);
  writeln(k)
end.

Объяснение кода листинга программы

Устанавливается переменная k со значением 0.
Запускается цикл repeat...until, который будет выполняться до тех пор, пока не будет введено число, которое делится на 3 без остатка.
Внутри цикла выводится сообщение Введите число:, после чего пользователь вводит значение, которое сохраняется в переменную i.
После ввода числа значение переменной k увеличивается на 1.
Цикл продолжается до тех пор, пока введенное число не будет кратно 3.
Когда условие будет выполнено (введено число, кратное 3), программа выведет значение переменной k (количество введенных чисел) и завершится.