var i : longint; begin i:=1; repeat continue; until i=1; end.