program menampilkan_nilai_dengan_if_then_else

uses wincrt;
var
nilai : real;
keterangan,
predikat : string;
ulang : char;
begin
clrscr;
repeat
writeln;
write('Masukkan nilai anda : '); readln(nilai);
if nilai > 80 then
keterangan := 'A'
else
if nilai >= 61 then
keterangan := 'B'
else
if nilai >= 41 then
keterangan := 'C'
else
if nilai >= 21 then
keterangan := 'D'
else
if nilai >=0 then
keterangan := 'E'
else keterangan :='Maaf mas .....
salah masuk';
writeln('Nilai anda adalah : ', keterangan);
write('Ada data lagi [y/t] : ');readln(ulang);
until ulang ='t';
end.