Из предложенных операторов составьте программу, ко­то­рая в по­сле­до­ва­тель­но­сти целых чисел опре­де­ля­ет максимальное число, крат­ное 3. Про­грам­ма по­лу­ча­ет на вход ко­ли­че­ство чисел в последовательности, а затем сами числа. В по­сле­до­ва­тель­но­сти все­гда име­ет­ся число, кратное 3.

• Var Max,N, i,a: integer;
• Begin
  Read\(N\);
  Max:=-1*maxint;
• For i := 1 to n do
  begin
• Read\(a\);
  if \(a \\gt max\) and \(a mod 3 = 0\) then
  max := a;
• end;
• end.
• writeln\(max\)