Вывести на экран значения выражения a *(b /3,14 + c *3)

Var  a,b,c,x:real;beginwriteln('Введите значение a: ');readln(a);writeln('Введите значение b: ');readln(b);writeln('Введите значение c: ');readln(c);x:=a*(b/pi+c*3) ;writeln('x = ',x);end.