program bai_giai; uses crt; var m,n,i,j:integer; begin clrscr; write('Nhap m: '); readln(m); write('Nhap n: '); readln(n); for i:=1 to n do begin for j:=1 to m do write('a'); writeln; end; readln; end.
uses crt; var i,j,m,n:longint; begin clrscr; write('Nhap m: ');readln(m); write('Nhap n: ');readln(n); for i:=1 to n do begin for j:=1 to m do write('a'); writeln; end; readln end.