PASCAL : Membuat program identitas

PROGRAM identitas;

USES CRT;

VAR nama : string[10];

ipk : real;

semester : byte;

sex : boolean;

BEGIN

CLRSCR;

nama:=’Habib Fatahillah’;

sex:=true;

semester:=1;

ipk:=3.80;

WRITELN(‘Nama saya : ‘, nama);

WRITELN(‘True = Laki-laki’);

WRITELN(‘False = Perempuan’);

WRITELN(‘Jenis kelamin : ‘, sex);

WRITELN(‘Semester : ‘, semester,’ (ganjil)’);

WRITELN(‘IPK saya = ‘, ipk:0:2);

READLN;

END.