Помогите написать программу в Pascal которая будет находить значение переменной. Функция 1 {sqr(y)-1.17 Функция 2 {sqr(y)*y/3

Спасибо !

var   f1, f2, y: real;begin  write('Введите y: ');  readln(y);  f1 := sqr(y)-1.17;  f2 := sqr(y)*y/3;  writeln('f1 = ', f1:2:2, '   f2 = ', f2:2:2);  readln;end.