Algoritma & Pemrograman 2 Bahasa Pascal

TUGAS AKHIR MODUL 3
No. 2

program pascal;
var
       a,b,c,d,e,f : string ;
begin
       a := ' Pascal' ;
       b := ' Pasca' ;
       c := ' Pasc' ;
       d := ' Pas' ;
       e := ' Pa' ;
       f := ' P' ;
          writeln ('= ',a);          delete (a,6,6)
          writeln ('= ',b);          delete (a,5,6)
          writeln ('= ',c);          delete (a,4,6)
          writeln ('= ',d);          delete (a,3,6)
          writeln ('= ',e);          delete (a,2,6)
          writeln ('= ',f);       
     readln;
end.