code pascal Nhập vào một số nguyên n và một ký tự in hoa bất kỳ,in ra man hình n ký tự in hoa đó(viết liền) VD: (dữ liệu vào)5 B Kết quả: BBBBB

var s:string;

i,n:integer;

b,c:char;

begin

  assign(input,'KYTU.INP'); reset(input);

  assign(output,'KYTU.OUT'); rewrite(output);

     readln(n,c,b);

S:='';(cái này là hai dấu nháy chứ không phải dấu ngoặc kép đâu bạn nhá)

       for i:=1 to n do s:=s+b;

write(s);

end. 

var n: integer;
    a: char;
begin
    read(n,a);
    readln(a);
    while n>0 do begin
        write(a);
        n:=n-1;
    end;
end.