Program uc_notun_ortalamasi;
uses wincrt;
Var
not1,not2,not3:integer;
ortalama: real;
Begin
write('notlari girmek icin enter a basin ***********(en fazla 10 basamak)************');
ReadLn;
write('1. notu giriniz (rakamla)---------------->:');ReadLn(not1);
write('2. notu giriniz (rakamla)---------------->:');ReadLn(not2);
write('3. notu giriniz (rakamla)---------------->:');ReadLn(not3);
ortalama:=(not1+not2+not3)/3;
WriteLn('Ortalama Bulundu gormek icin enter a basin');
ReadLn;
WriteLn('uc notun ortalamasi =',ortalama:5:2);
ReadLn;
end.