program pengisian_biodata;

uses Crt;

var
    nama, ttg, klmn, agama: String;
    PL, PL1, PL2: char;

begin
    clrscr;
    writeln('nama lengkap anda');
    readln(nama);
    clrscr;
    writeln('Tempat/Tanggal lahir');
    readln(ttg);
    clrscr;
    writeln('Jenis Kelamin (P/L)');
    writeln('*pilih kelamin anda lalu enter');
    readln;
    PL := readkey;

    if PL = 'P or p' then
    begin
        Writeln('Perempuan');
        Readln(PL1);
    end;

    if PL = 'L or l' then
    begin
        Writeln('laki-laki');
        Readln(PL2);
    End;

    clrscr;
    writeln('agama');
    readln(agama);
    clrscr;
    writeln;
    writeln;
    writeln('Nama : ',nama);
    writeln('Tempat/Tanggal lahir : ',ttg);
    writeln('jenis kelamin : ',PL1,'',PL2);
    writeln('Agama : ',agama);
    readln;


end.