5 lines
81 B
ObjectPascal
5 lines
81 B
ObjectPascal
var k : integer;
|
|
begin
|
|
while 1/k>0 do
|
|
writeln('I will survive!');
|
|
end. |