Contoh Program If pada Pascal

program nilai_siswa;
uses wincrt;

var
nama,nip,ket:string;
nilhrf:char;
nilai:byte;

begin
writeln('SILAHKAN MASUKAN DATA SISWA :');
Writeln('***************************************');
writeln;
write ('Nomor Induk Siswa : ');readln(nip);
write ('Nama Siswa : ');readln(nama);
write ('Masukan Nilai : ');readln(nilai);

if nilai > 85 then
begin
nilhrf := 'A';
ket := 'Sangat Baik'
end
else
if nilai >= 80 then
begin
nilhrf := 'B';
ket := 'Baik'
end
else
if nilai >= 70 then
begin
nilhrf := 'C';
ket := 'Cukup'
end
else
if nilai >= 55 then
begin
nilhrf := 'D';
ket := 'Kurang'
end
else
begin
nilhrf := 'E';
ket := 'Sangat Kurang'
end;

clrscr;
writeln ('Nomor Induk Siswa : ',nip);
writeln ('Nama Siswa : ',nama);
writeln ('Nilai : ',Nilai);
writeln ('Nilai Huruf : ',nilhrf);
writeln ('Keterangan : ',ket)
end.

Silahkan Mencoba, smoga sukses......