Введите с клавиатуры 4 числа, выведите их среднее арифметическое, сумму, произведение.

Var
a,b,c,d:integer;
begin
writeln('Ведите a,b,c,d');
read(a,b,c,d);
writeln('Сумма a,b,c,d = ', a+b+c+d);
writeln('Произведение = ', a*b*c*d);
writeln('Среднее арифметическое = ', (a+b+c+d)/4);
end.