viết chương trình in ra màn hình 10 lần tên em

program in;

uses crt;

var i: byte;

      Hoten: string;

Begin

         clrscr;

         write(‘Nhap ho & ten: ‘); readln(Hoten);

         writeln;

         for i:=1 to 10 do writeln(Hoten);

         readln

End.