Program Pascal if then else

Assalamu'alaikum wr. wb.

Kesempatan kali ini saya akan berbagi tentang algoritma dan pemrograman pascal if then else. Langsung saja ke contoh soalnya.

If...Then..Else..
Buatlah Program Seleksi Mahasiswa dengan input  Nama,Nomor pendaftaran, tinggi badan, umur,nilai bahasa indonesia, nilai bahasa Inggris, Nilai Matematika dengan ketentuan sebagai berikut :

Nomor pendaftaran diawali dengan 0

Output dinyatakan diterima apabila:
1. Tinggi badan >150
2. Umur <50
3. Nilai Bahasa Indonesia > 60
4. Nilai Bahasa inggris atau Matematika > 70

Baris Program

Uses wincrt;

Var  TB,U,BI,BING,MTK:Integer;

     Nama,Hasil,no:String[50];

begin

   Clrscr;

   Writeln('******Seleksi Mahasiswa******');

   Write('Nama                   :');readln(Nama);

   Write('Nomor Pendaftaran      :');readln(no);

   Write('Tinggi badan           :');readln(TB);

   Write('Umur                   :');readln (U);

   Write('Nilai Bahasa Indonesia :');readln (BI);

   Write('Nilai Bahasa Ingris    :');readln (BING);

   Write('Nilai Matematika       :');readln (MTK);

   If(TB>150)and (U<50) and (BI>60) and ((BING>70) or (MTK>70))

   then

   Hasil:='Anda diterima'

   Else

   Hasil:='Anda tidak diterima';

 Writeln('Keterangan             :',Hasil);

    Readln;

End.

Output program:

Sekian yang dapat saya sampaikan tentang pascal if ..then.. else semoga bermanfaat, Wasalamu'alikum wr.wb.

Pascal If Then Else If