Впрограмме паскаль ввести три числа, найти их сумму, произведение и среднее арифметическое. числа 4,5,7. нужно

Var a,b,c:real;
begin
  readln(a,b,c);
  writeln('Сумма ',a+b+c,' Произведение ',a*b*c,' Среднее арифметическое ',(a+b+c)/3);
end.