var a, b, c,d:integer;s:real;
begin
writeln('введите 4 числа') ;
readln(a,b,c,d);
writeln('Сумма равна ', a+b+c+d);
s:= (a+b+c+d)/4;
writeln('Среднее арифметическое: ', s);
end.
Объяснение:
