Из функции y=x1x2+x1x3+x2x3 написать программу. !

Program one;
var  x, y: real;
begin  write('Введите число x: ');  read(x);  y := x * 1 * x * 2 + x * 1 * x * 3 + x * 2 * x * 3;  write('ответ: ', y);end.