program virtual box tpw 15 tentang nama

PROGRAM in_out;
USES CRT;
VAR nm : STRING; npm : STRING;
BEGIN
CLRSCR;
WRITELN('masukkan nama dan NPM ');
WRITELN('------------------------------');WRITE('nama anda : ');
READLN(nm);
WRITELN('NPM anda : ');
READLN(npm);
END