begin var i; i:=1; while 1=1 do write i; i:=i+1 od end