нужно) последнее для экзамена выполнить в паскале 3. вычислить f(x), если (используя составные условия) f(x) = x, если -2< =x < 2 f(x) = 4, если x=> 2, x< -2

1 var
2 x:real;
3  rez:real;
4 begin  
5read(x);//ввод
6 if(x<0) then rez:=0;//первый случай
7 if(x<=1)and(x>=0) then rez:=x;//второй случай  
8 if(x>1) then rez:=2;//третий
9 writeln(rez);//вывод результата
10 end.

Вроде бы правильно,но это неточно 

Как понял я, то тебе нужно что то такое

var f:array[1..10000]of longint;
x:longint;
begin
writeln('Введите x');
readln(x);
if (x>=2) or (x<=-2) then
f[x]:=x
else f[x]:=4;
writeln('f[x] = ',f[x]);
end.