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

Var x,y:real;
begin
write(x = );
readln(x);
if (xlt;-4)or(xgt;4)
 then writeln(Функция не определена)
 else begin 
   if xlt;0
        then y:=0
        else if xlt;2 then y:=x*x
                    else y:=4;
   writeln(Y = ,y);
   end;
end.

Пример:
x = 1.5
Y = 2.25

Var y,xn,xk,s:real;
begin
readln(s,xn,xk);//s-шаг функции xn и xk - интервал иксов, в котором мы рассматриваем функцию
writeln(x,   ,y);
while xnlt;xk do begin
while xnlt;0 do begin y:=0; xn+=s; writeln(xn,   ,y); end;
while ylt;4 do begin y:=power(xn,2); xn+=s; writeln(xn,   ,y); end;
while xnlt;xk do begin y:=4; xn+=s;  writeln(xn,   ,y); end;
exit;
end;
end.