напишите прогу в паскале Вводится последовательно 15 чисел найти самое большое положительно кратное 3

Вопрос школьника по предмету Информатика

напишите прогу в паскале
Вводится последовательно 15 чисел найти самое большое положительно кратное 3

Ответ учителя по предмету Информатика

var  i, a, b, max: integer;

begin  max := -maxint; b := 0;  for i := 1 to 15 do   begin    Write(‘Введите число: ‘); Readln(a);    if (a mod 3 = 0)      then if (a > max) then max := a;  end;  Write(‘Самое большое число кратное 3 = ‘, max);end.Если нигде не ошибся, то должно работать именно так