Untitled

program Latihan_pascal_bareng;

var nama_mahasiswa:string;
    umur_mahasiswa:integer;
    jenis_kelamin:char;
    berat_badan:real;
    
begin
    {nama_mahasiswa:='dian';
    umur_mahasiswa:=20;
    jenis_kelamin:='P';
    berat_badan:=10.2}
    
    write('Input Nama Mahasiswa = ');readln(nama_mahasiswa);
    write('Input umur_mahasiswa = ');readln(umur_mahasiswa);
    write('Input Jenis Kelamin(L/P) = ');readln(jenis_kelamin);
    write('Input Berat Badan = ');readln(berat_badan);
    
    writeln('Nama Mahasiswa = ',nama_mahasiswa);
    writeln('Umur Mahasiswa = ',umur_mahasiswa);
    begin
        if(jenis_kelamin = 'P') then
        begin
        writeln('Jenis Kelamin = Perempuan');
        end
        else
        begin
        writeln('Jenis Kelamin = Laki-Laki');
        end;
    end;
        
    writeln('Berat Badan = ',berat_badan:1:1);
    
end.