алгоритм творенья и ср. арифметического 3-х чиселпожалуста помогите необходимо сделать либо

Var
  a, b, c: real;

begin
  writeln('Введите первое число ');
  readln(a);
  writeln('Введите второе число ');
  readln(b);
  writeln('Введите третье число ');
  readln(c);
  writeln('Произведение этих чисел равно ');
  writeln(a * b * c);
  writeln('Среднее арифметическое этих чисел равно ');
  writeln((a + b + c) / 3);
end.