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;
end.