Program Pascal untuk Input Jenis Kelamin

Jika kita menginputkan 'p' atau 'P' maka program akan mencetak 'Perempuan' dan begitu juga jika menginputkan 'l' atau 'L' maka program akan mencetak 'Laki-laki'. Berikut ini contoh programnya :

IF...THEN


program if_then;
uses wincrt;
var jenkel,jenkel1:char;
begin
write('masukkan jenkel =');readln(jenkel1);
jenkel:=upcase(jenkel1);
if (jenkel='P') then
begin
write('perempuan')
end
else if (jenkel='L') then
write('laki-laki')
else write('salah input')
end.