Написать программу на паскале: на вход целые числа до появления нуля. вывести максимальное количес тво подряд идущих чисел, кратных 3.

Var
   x, n, max: integer;
 
begin
  n := 0;
  max := 0;
   while true do
   begin
    read(x);
     if(x mod 3 = 0)and(x<>0) then n := n + 1
     else begin if(n > max) then max := n; n := 0; end;
     if(x = 0) then break;
  end;
  write(max);
end.