[Pascal] Program Kelulusan

ok, kali ini saya akan memberikan ilmu yg saya dapat ketika bimbingan pada hari sabtu lalu kwkwkwkwk :v.
sebelumnya saya mengucapkan terima kasih dulu kepada kang yuda yg telah mengajarkan cara menggunajan IF ELSE di pascal :D

ok langsung saja ke codenya, (kurang lebih seperti ini codenya, karena kemarin lupa bawa flashdisk jadi gk di copy codenya)

program kelulusan;
uses wincrt;
var nama,kelas:string;
    nilai:integer;

begin
writeln('+---Program Kelulusan---+');
write('Nama  : ');readln(nama);
write('Kelas : ');readln(kelas);
write('Nilai : ');readln(nilai);
clrscr;
writeln('+----------------------------------------+');
writeln(' Saya menyatakan bahwa siswa yang bernama ');
writeln(' Nama  : ',nama);
writeln(' Kelas : ',kelas);
writeln(' Nilai : ',nilai);
writeln(' Dinyatakan ');
if nilai>80 then
writeln(' ------------------LULUS----------------- ')
else if nilai>=60 then
writeln(' --------------HARUS REMEDIAL--------------- ')
else if nilai<60 then
writeln(' ---------------TIDAK LULUS-------------- ')
end.

ok code di atas adalah code untuk menentukan nilai kelulusan, bila kita input nilai lebih <60 maka akan keluar output "TIDAK LULUS", apabila kita input nilai >=60 maka akan keluar output "HARUS REMEDIAL", dan apabila kita input nilai ">80" maka akan keluar output "LULUS"

ini contohnya:

contoh menginputkan nilai <60 (lebih kecil dari 60)