Pascalda Geçti Kaldı Not Hesaplama, Pascalda Vize Final Geçti Kaldı Hesaplama

uses crt;

var

     v,f:byte;

     ort:real;

begin

     clrscr;

     write ('Vize Notu=');readln(v);

     write ('Final Notu=');readln(f);

     ORT:=(V*0.4)+(F*0.6);

     writeln('ORTALAMA NOTU=ORT:5:1);

     if ORT=60 then

     Writeln('Dersten Geçti')

     Else Writeln('Dersten Kaldı');

     if (ORT=80) and (ORT;=100) then

     Writeln('Durumu Çok İyi')

     Else If (ORT;=60) and (ORT;=80) then

     Writeln('Durumu İyi')

     Else Writeln('Durumu Kaldı');

     Readln;

End.