uses crt; var a,b,c integer; ort real; begin writeln('üc sayı giriniz'); readln(a,b,c); ort:=(a+b+c)/3; writeln('sonuc',ort); readln(ort); end.