СРОЧНО!!!!! Дана функция f(x)=3x^2+4x-5. Вычислить f(4)+f(-5). Решить в паскале

Программа может выглядеть так: program Func;  uses Crt;  var  a,b: integer;       rez, fa, fb: integer; begin                       ;  ClrScr;  a:=4;  b:=-5;  fa:=3*sqr(a)+4*a-5;  fb:=3*sqr(b)+4*b-5;  Rez:=fa+fb;  WriteLn('f(4)=', fa);  WriteLn('f(5)=', fb);  WriteLn('f(4)+f(5)=', Rez);  ReadLn; end.                              ,