По идее ок)

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.