Program Membuat Piramid

Program piramid;
Uses crt;
var
i,j,n:integer;

begin
clrscr;

        readln(n);
        for i:= 1 to n do
                begin
                for j:= 1 to n do
                begin
                if i<j then
                        write('')
                        else write('x  ');
                end;
                writeln;
                writeln;
                end;

        readln;
end.