Написать функцию, которая выясняет, является ли число кратным 3 - Pascal

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

Написать подпрограмму-функцию, которая выясняет, является ли заданное пользователем целое число кратным 3 (результат функции - значение логического типа). Пользователь задает 3 значения. Здравствуйте помогите пожалуйста с написанием программы. Я смог написать только для одного числа а надо для трёх(пример снизу).

                    Листинг программы
                
 
                        
                          
                    
var   
      chislo,kratnue_4isla:integer;
      
      i:byte;
function kratnoe (chislo:integer):integer;
    begin
      if (chislo mod 3) = 0 then writeln('kratnoe 4islo = ',chislo)
      end;
     begin
       writeln('Vvedite tri 4isla');
          
              readln(chislo);
            
       kratnue_4isla:= kratnoe(chislo);
 
     end.

Решение задачи: «Написать функцию, которая выясняет, является ли число кратным 3»

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

function kratnoe (chislo:integer):boolean;
begin
kratnoe:=chislo mod 3=0
end;
var i,chislo:integer;
begin
writeln('Vvedite tri 4isla');
for i:=1 to 3 do
 begin
  readln(chislo);
  writeln(kratnoe(chislo));
 end;
end.

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

Объявляется функция с именем kratnoe и параметром chislo типа integer, которая возвращает значение типа boolean.
В теле функции kratnoe проверяется, является ли значение chislo кратным 3 с помощью операции остатка от деления (mod 3=0) и это значение возвращается из функции.
Объявляются переменные i и chislo типа integer.
Начинается блок кода основной программы.
Выводится на экран текст Vvedite tri 4isla.
Запускается цикл for от 1 до 3.
Внутри цикла считывается значение переменной chislo с помощью функции readln.
Выводится на экран результат вызова функции kratnoe с переданным значением chislo с помощью функции writeln.
Конец цикла.
Конец программы.