Как это записать? пользователь вводит три числа. найдите среднее арифметическое этих чисел, а также разность удвоенной суммы первого и третьего числа и утроенного второго числа

Var
  a,b,c : real;
begin
Read(a,b,c);
Writeln('Ср. арифм.: ', (a + b + c)/3);
Writeln('Разность удвоенной суммы первого и третьего числа и утроенного второго числа: ', 2 * (a + c) - 3 * b);
end.