uses crt;
var
not1,not2,soz1:integer;
ort:real;
begin clrscr;
writeln('Birinci yazılı notunu giriniz..:')
;readln(not1);
writeln('İkinci yazılı notunu giriniz..:');
readln(not2);
writeln('sözlü notunu giriniz..:');
readln(soz1);
ort:=(not1+not2+soz1)/3;
writeln('not ortalamanız= ',ort);
readln;
if ort<24 then
begin
writelen('hiç bir şey öğrenmemişsiniz...'); readln; end;
if ort>24 and ort<45 then
begin
writelen('hiç biraz gayret edin...'); readln; end;
if ort>45 and ort<55 then
begin
writelen('durumunuz vasat...'); readln; end;
if ort>54 and ort<69 then
writelen('iyi gidiyorsunuz biraz daha gayret...'); readln; end;
if ort>69 an ort<84 then
begin
writelen('çok iyi. daha iyisini yapabilecek kadar zekisin...'); readln; end;
if ort>84 and ort>101 then
begin
writelen('süpersin.ve çok başarılısın tebrikler!!...'); readln; end;
end.