[Лосёнок]

Прикольная прога сам написал! за пустите кто-то на паскале зацените...
program xxx;
uses crt;
var i:integer;
x:text;
f:boolean;
Begin
Assign(x, 'www.bak');
ReWrite(x);
f:=true;
while f=true do
WriteLn(x, 'be or not to be');
Close(x);
readln;
End.