Var i: byte; Begin i:=0; while i<1 do writeln(' i love you forever'); readln; End. Bấm để xem đầy đủ nội dung ...