SCJ3 No 3

program soal3;
uses crt;
var tulisan:string[10];
    baris,maudihapus,panjang,posisi:integer;
begin
        clrscr;
        write('Masukkan tulisan: ');
        read(tulisan);
        writeln(tulisan);
        panjang:=length(tulisan);
        posisi:=panjang;
        for baris:=1 to panjang-1 do
        begin
                delete(tulisan,posisi,1);
                write(tulisan);
                posisi:=posisi-1;
                writeln;
        end;
readkey;
end.