Uses WinCrt;
Var
Nm, nim, kls : string;
Begin
Clrscr;
Write ( ‘masukan nama anda : ‘) ; readln (nm) ;
Write ( ‘masukan npm anda : ‘) ; readln (nim) ;
Write ( ‘masukan kelas anda : ‘) ; readln (kls) ;
Writeln;
Writeln ( ‘nama saya : ‘ ,nm) ;
Writeln ( ‘npm saya : ‘ ,nim) ;
Writeln ( ‘kelas saya : ‘ ,kls) ;
End.
ConversionConversion EmoticonEmoticon