Olimpiade Sains Provinsi (OSP) 2019 - Komputer, Nomor 36–37

var
    n: integer;

procedure printgraf(x: integer);
var
    i: integer;
begin
    if x >= 0 then
    begin
        printgraf(x - 1);
        printgraf(x - 1);
        for i := 0 to x - 1 do
            writeln("*");
        printgraf(x - 2);
    end;
end;

begin
    read(n);
    printgraf(n);
end.