Klavyeden notu girilen öğrencinin dersden geçti veya kaldı hesaplamasını yapan p

Klavyeden notu girilen öğrencinin dersden geçti veya kaldı hesaplamasını yapan program.
   uses crt;
var
sayi:integer;
write(‘notunuzu girin:’);readln(sayi);
if(sayi<0) then
writeln(‘eksi sayı girdiniz’)
else
if (sayi<=25)then
writeln(‘0 Kaldınız’);
else if(sayi<=44) then
writeln(‘1 Kaldınız’)
else if(sayi<=54) then
writeln(‘2 Geçtiniz’)
else if(sayi<=69) then

writeln(‘3 Geçtiniz’)
else if(sayi<=84) then
writeln(‘3 Geçtiniz’)
else if(sayi<=100) then
writeln(‘5 Geçtiniz’)
else writeln(‘fazla sayı girdiniz’);
readln;
end.


Linkback: https://www.buyuknet.com/klavyeden-notu-girilen-ogrencinin-dersden-gecti-veya-kaldi-hesaplamasini-yapan-p-t8218.0.html