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