Bài 1:
uses crt;
var i:byte;
begin
clrscr;
for i:=1 to 50 do
write('*');
readln;
end.
Bài 2:
uses crt;
var i,j:byte;
begin
clrscr;
for i:=1 to 10 do
begin
for j:=1 to 50 do
write('*');
writeln;
end;
readln;
end.