program hello;
var no : integer;
begin
 ClrScr;
 for no := 1 to 10 do
   writeln('Hello World from Turbo Pascal Line ', no);
end.