Написать программу в 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.