var k : integer; begin while 1/k>0 do writeln('I will survive!'); end.