1:

var i,k:integer;

BEGIN

k:=1;

for i:=1 to 5 do begin

for k:=1 to i do

write('*');

writeln();

end;

end.

2:

BEGIN

writeln('   *');

writeln('  ***');

writeln(' *****');

writeln('  ***');

writeln(' ******');

writeln('********');

writeln('  ***');;

end.