Дано действительное число А. Для функции F(X)

[barok]

Дано действительное число А. Для функции F(X), график которой представлен на Рис 1. вычислить F(A).
как вычислить в паскале?

P.S. вот мой вариант решения но помойму вычисляет неправельно:
program var12;
var x,y:real;
begin
write('vedute A=');readln(x);
if(0>x)then
y:=(1-abs(x));
begin
if(0<x)and(x<4)then
y:=-1+x;
if(x>4-x)then
y:=-x+4;
writeln('y=',y:2:2);
readln;
end;
end.

[Риндера]

Совершенно непонятно откуда взятые условия и соотв. функции...

if (x<0) then y := (-1)*x;
if (x>0) and (x<4) then y := sqrt(x);
if (x>4) then y := 2;

Условия "больше или равно / меньше или равно" расставишь сам, где нужно. По графику не понятно.

[ROMA2PVT]

Риндера условия в "его" варианте решения взяты с cайберфорума

[Риндера]

ROMA2PVT, даже не знаю что делать, плакать или смеяться))))

вот мой вариант решения, но по-мойму вычисляет неправельно

[ROMA2PVT]

Риндера
плакать.Ведь возможно он будущий программист.