program main ( input, output ); var a: integer; begin while (1) do a:= 0 end.