var i;
begin
  i:=0;
  while i<20 do
    begin
      out:=i;
      i:=i+1;
      call wait(i*1000);
      call stop
    end
end.