Составьте программу Паскаль, по которой вводятся 3 любых числа, и находятся для них сумма средняя арифметическая и произведения

Var a, b, c: real;

begin Write ('Введите число №1'); ReadLn (a);

Write ('Введите число №2'); ReadLn (b); Write ('Введите число №3'); ReadLn (c);

WriteLn ('Сумма чисел равна ', a+b+c); WriteLn ('Среднее арифметическое равно ', (a+b+c) / 3); WriteLn ('Произведение чисел равно ', a*b*c); end;

Program n1;

var a, b, c: real;

sum, p, ps: real;

begin

write ('введите 1 число: ');

readln (a);

write ('введите 2 число: ');

readln (b);

write ('введите 3 число: ');

readln (c);

sum:=a+b+c;

p:=a*b*c;

ps:=sum/3;

writeln ('сумма: ', sum);

writeln ('произведение: ', p);

writeln ('ср. арифмитическое: ', ps);

end