menghitung tingkatan nilai dalam turbo pascal

program _nilai;
uses wincrt;

var
i:integer;
nilai:byte;
begin
for i:= 1 to 4 do

begin
writeln('menghitung tingkatan nilai');
writeln('=========================');
write('masukan nilai(0...10):');
readln(nilai);
writeln;
if nilai<9then
if nilai <7 then
if nilai <5 then
if nilai <3 then
writeln('waduh!! nilai nya kacau')
else
writeln('perlu kerja keras nih!!!!:')
else
writeln('nilainya lumayan.......!!!')
else
writeln('nilainya cukup baik')
else
writeln('nah ni baru nilai the best!!!');
readln;
end;

end.