Pascal Вычислить и вывести на экран значение данной функции, используя условный

Var w,a,b,c,x:real;
begin
x:=2.8;
b:=-0.3;
c:=4;

writeline ("Input X");
readline (x);

if (xlt;1.2) then w:=a*x*x+b*x+c;
if (xlt;1.2) then w:=a*(Pow (x),2) + b*x+c; // Подобен предшествующей строке, только там множили х на х, а тут возводим через функцию pow.

if (x=1.2) then w:= a/x + (Pow (x),2)+1;
if (xgt;1.2) then w:=(a+b*x)/((Pow (x),2)+ 1);
writeline ("Your answer ", w);
end.