SCJ2 No 2 BENER

program soal2;
uses crt;
var baris,bintangspasi,spasi,angka:integer;
begin
        clrscr;
        write('Masukkan angka:');
        read(angka);
        for baris:=1 to angka do
        begin
                for spasi:=1 to angka-baris do
                begin
                        write(' ');
                end;
                for bintangspasi:=1 to baris-1 do
                begin
                        write('* ');
                end;
                write('*');
                for spasi:=1 to angka-baris do
                begin
                        write(' ');
                end;
                writeln;
        end;
readkey;
end.