tulisan 18 - program

Uses crt; Var nama,kelas,npm : string ; Begin Clrscr; Writeln('biodata'); Write('masukan nama:');readln(nama); Write('masukan kelas:');readln(kelas); Write('masukan npm:');readln(kelas); Writeln('nama saya adalah':',nama,'kelas saya adalah:',kelas,'npm saya adalah:',npm); Readln; End.