SCJ2 No 8

program soal8;
uses crt;
var angka1,angka2,angka:integer;

procedure tulisbintang;
begin
        while angka>0 do
        begin
                write('*');
                angka:=angka-1;
        end;
end;

begin
        clrscr;
        write('Angka 1:');
        read(angka1);
        write('Angka 2:');
        read(angka2);
        angka:=angka1;
        tulisbintang;
        readln;
        readln;
        angka:=angka2;
        tulisbintang;
readkey;
end.