Pascal - Membuat Bentuk Piramid Tingkat (n)

Gausa pake lama. langsung aja ke intinya. tinggal copas.. hahha :)

--------------------------------------------------------------------------------------------
program piramid;
uses wincrt;
var
x,y,tingkat:integer;
aw,ah:real;

begin
clrscr;
    write('Masukan jumlah tingkat : ');readln(tingkat);
    if(tingkat mod 2=1)then begin
         aw:=(tingkat+1);
         ah:=(tingkat+1);
    end
    else begin
         aw:=tingkat;
         ah:=tingkat;
    end;

    for x:=1 to tingkat do begin
        for y:= 1 to (tingkat*2) do begin
              if (y >= aw) and (y <= ah) then
                    write('*')
             else
                    write(' ');
        end;
        aw:=aw-1;
        ah:=ah+1;
        writeln('');
    end;
end.
--------------------------------------------------------------------------------------------
tag : | pascal | piramida | segitiga | dinamis | tingkat | for to do | turbo |