SCJ2 No 1

program soal1;
uses crt;
var angka,baris,jumlah:integer;
begin
clrscr;
writeln('Masukkan angka:');
readln(angka);
while (baris<=angka+1) do
begin
        jumlah:=1;
        baris:=1;
        while (jumlah<=angka) do
        begin
                write(angka);
                jumlah:=jumlah+1;
        end;
        angka:=angka-1;
        baris:=baris+1;
        writeln;
end;
readkey;
end.