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

По идее ок)

program prim;

var a:array [1 ... 3] of integer;

i:integer;

c:integer;

begin

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

for i:=1 to 3 do

readln (a[i]) ;

for i:=1 to 3 do

if a[i] > c then c:=a[i];

if (c mod 3=0) then

writeln (c, ' кратно 3')

else

writeln (c, ' не кратно 3') ;

end.