3. Keterangan Nilai Huruf

Program If1;
Uses crt;
Var
   Huruf:CHAR;
   keterangan:string;
Begin
clrscr;
Write('masukkan nilai huruf: ');
Readln(huruf);

if huruf='A'then
   keterangan:='lulus'
else
    keterangan:='gagal';

Writeln('keterangan: ',keterangan);
Readln;
end.