Составить программу нахождения наибольшего из трёх чисел и проверить кратно ли это число трём в Паскале авс

Предыдущий
вопрос Следующий
вопрос

Program HighestOfThree;

var
num1, num2, num3, highestNum: integer;

begin
writeln('Введите три числа:');
readln(num1, num2, num3);

if (num1 >= num2) and (num1 >= num3) then
highestNum := num1
else if (num2 >= num1) and (num2 >= num3) then
highestNum := num2
else
highestNum := num3;

writeln('Наибольшее из трех чисел: ', highestNum);

if highestNum mod 3 = 0 then
writeln('Наибольшее число кратно трём')
else
writeln('Наибольшее число не кратно трём');
end.