Nhập vào chữ cái thường in ra chữ đó 10 lần

program in_10lan;

uses crt;

var s:string;

      i:byte;

begin

       clrscr;

       write(‘Nhap chu cai: ‘);  readln(s);

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

       readln;

end.