Latihan 7

Program edoganteng;

Uses crt;

Var
 D,A,M,
 NI,T1,
 NAMA,I,B1      : string;

begin
        Clrscr;
        write('Masukkan NIM  : '); readln(NI);
        write('Masukkan nama : '); readln(NAMA) ;

        Writeln;
        Writeln(NI+ ' : ', NAMA);
        D:=copy(NI,1,2);
        Writeln('=> tahun masuk 20',D);
        A:=copy(NI,3,3);
        if A = '141' then T1:= 'sistem informasi'
        else
        if A = '142' then T1:= 'teknik informatika'
        else
        b1:= ' jurusan lain ';
        Writeln('=> program studi ',T1);
        M:=copy(NI,6,4);
        Writeln('=> no urut ',M);
        M:=copy(NI,POS('P',NI),1);
        if I='P' Then
        Writeln('=> Mahasiswa Transisi')
        else
        Writeln('=> Mahasiswa Reguler');
        readln;
end.