program pascal menggunakan string

uses crt;

var

   na,al,nama:string;

   ni,thns,TI,TU,umur:real;

begin

   clrscr;

      textcolor(red);

         writeln('                     #-#==============================#-#');

         writeln('                     #-#                Nama  : Gufron arafat                  #-#');

         writeln('                     #-#                NIM   : 12012688                       #-#');

         writeln('                     #-#                Kelas : H                                     #-#');

         writeln('                     #-#                Tugas : Pascal ke 4                      #-#');

         writeln('                     #-#==============================#-#');
         writeln('=============================================================');

      textcolor(white);

         write('       *  Tahun input              : '); readln(TI);

         write('       *  Nama                      : '); readln(na);

         write('       *  NIM                        : '); readln(ni);

         write('       *  Alamat                     : '); readln(al);

         write('       *  Tahun kelahiran        : '); readln(TU);

        writeln('==============================================================');

      umur:=(TI-TU);

         writeln('       *  UMUR ANDA SAAT INI         : ',umur:2:0);

         writeln('                         ==>     TERIMAKASIH     <==');

    readln;

end.


                                         http://www.4shared.com/rar/gWQoFBTi/tugas_4.html