Задание №2 по дисциплине «Информатика»

Решить задачу: с использованием условного оператора.
Составить программу вычисления функции

program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var x,f,x1,x2,x3:real;
begin
writeln ('vvedite X');
readln (x);
if x<0 then
begin
x1:=-4;
writeln (x1:2:0);
end;

if (0<=x) AND (x<1) then begin x2:=sqr (x)+3*x+4; writeln (x2:2:0); end; if (x>=1) then
begin
x3:=sqr (sqr (x)+3*x+4);
writeln (x3:2:0);
end;
readln;
end.