program ogrenci_not;



uses crt;



var

  

is:string;

  

ortalama,n1,n2,n3,top:integer;



begin



 clrscr;



 write('˜sminizi Giriniz   : ');readln(is);



 writeln;



 textcolor(red);



 write('1. Notunuzu Giriniz: ');readln(n1);



 writeln;



 textcolor(green);



 write('2. Notunuzu Giriniz: ');



 readln(n2);



 writeln;



 textcolor(blue);



 write('3. Notunuzu Giriniz: ');



 readln(n3);



 top:=n1+n2+n3;



 ortalama:=top div  3;



 textcolor(white+blink);



 writeln('----------------------------------------------');



 textcolor(yellow);



 writeln(is,'- Not Ortalaman: ',ortalama);



 textcolor(red);



 writeln;



 writeln;



 writeln;



 if 45>ortalama then



 writeln('KALDIN');



 if 45<ortalama then



 writeln('GECTiN');



readln;



end.