CONTOH PROGRAM PASCAL JENIS KELAMIN

Program Jenis_kelamin;
uses crt;
var
 a:char;
begin

 clrscr;
 write('masukan kode jenis kelamin anda (P/p/L/l) = ');readln(a);
 if (a='P') then
  writeln ('PEREMPUAN')
 else
 if ( a = 'p' ) then
  writeln ('PEREMPUAN')
 else
 if ( a = 'L') then
  writeln ('LAKI - LAKI')
 else
 if ( a = 'l' )then
  writeln ('LAKI - LAKI')
 else
  writeln ('COBA LAGI');
 readln;
 end.