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