Объяснение:
var
x, y, k: real;
begin
write('Введите 3 числа = ');
readln(x, y, k);
writeln('Сумма = ', x + y + k);
writeln('Произведение = ', x * y * k);
writeln('Ср. арифметическое = ', (x + y + k) / 3);
end.
