uses crt;vari,y,x,z:integer;n:single;beginclrscr;writeln('Введите 4 числа');readln(i,z,x,y);n:=(x+y+z+i)/4;writeln('Среднее= ',n:0:3);readln();end.
