MENGURUTKAN NAMA (LOOPING)

Uses crt;

Var     kata:string;
    a,b,j,k : integer;

begin
    clrscr;
    write(‘masukan kata = ‘);readln(kata);
    a:=length(kata);
    b:=length(kata);
    begin
        for j:=1to a do
        begin
            for k:=1 to a do
                begin
                        write(kata[k]);
                    end;
            writeln;
            a:=a-1;
        end;
        for j:=1 to b do
        begin
            for k:=1 to j do
                    begin
                        write[kata[k]);
                    end;
            writeln;
        end;
    end;
    readln;
end.