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

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