program choinka;
uses crt;
var i,j,wiersze: integer;

begin
clrscr;
writeln('Ile wierszy');
readln(wiersze);

for i:=0 to wiersze do
begin
writeln;
        for j:=0 to i do
        begin
        write('*');
        end;
end;

writeln;   writeln;
writeln('Koniec');
readln;
end.