Напишите программу, которая находит сумму, произведение и среднее арифметическое трёх...

Напишите программу, которая находит сумму, произведение и среднее арифметическое трёх целых чисел, введённых с клавиатуры. Входные данные Три целых числа вводятся в одной строке через пробелы. Выходные данные Программа должна вывести сумму, произведение и среднее арифметическое введенных чисел. Среднее арифметическое нужно вывести с точностью 3 знака после десятичной точки (ровно 3 знака с учетом округления).
Примеры
входные данные
4 5 7
выходные данные
4+5+7=16
4*5*7=140
(4+5+7)/3=5.333

Program Name;
var a,b,c,s,p:integer;
F:real;
begin
readln (a);
readln (b);
readln (c);
s:=a+b+c;
p:=a*b*c;
F:=(a+b+c)/3;
writeln ('s=',a+b+c);
writeln ('p=',a*b*c);
write ('F=',(a+b+c)/3:0:3);
end.
Сумму обозначила буквой s
Произведение обозначила буквой p
Среднее арифметическое обозначила буквой F