Selection Dalam Pascal

program selection_berhasil_atau_gagal;        {judul program}

uses crt;                                     {blok program}

var                                           {pendeklarasian variabel}

hasil:integer;                                {variabel dan tipe datanya}

begin                                         {pernyataan}

clrscr;                                       {membersihkan layar}

write('masukan hasil yang anda dapat =');     {menampilkan hasil atau isi 'masukan hasil yang anda dapat' tanpa ganti baris dan tampilan berikutnya akan disambung dalam baris yang sama}

readln(hasil);                                {pemasukan data, kursor akan berpindah kebaris selanjutnya setelah diinput dengan menekan enter}

if hasil >50 then                             {seleksi pemilihan kondisi variabel nilai}

writeln('horreee saya berhasil')              {dilaksanakan jika nilai lebih besar dari 50, dan menampilkannya ke layar dengan inputan}

else                                          {jika kondisi tidak terpenuhi,yaitu jika tidak lebih besar dari 50}

writeln('aduuhhh saya gagal');                {dilaksanakan jika nilai lebih kecil dari 50, dan menampilkannya ke layar dengan inputan}

readln;                                       {kursor akan berpindah kebaris selanjutnya setelah diinput dengan menekan enter}

end.                                          {akhir dari program}

Thanks for reading & sharing Kamar Pekick