SCJ3 No 4

program soal4;
uses crt;
var tulisan:string[10];
    baris,panjang,n:integer;

begin
        clrscr;
        write('Masukkan tulisan: ');
        read(tulisan);
        panjang:=length(tulisan);
        write(tulisan[1]);
        writeln;
        for baris:=2 to panjang do
        begin
                write(tulisan[1]);
                for n:=2 to baris do
                begin
                write('-');
                write(tulisan[n]);
                end;
                writeln;
        end;
readkey;
end.