Информатики!! помогите ПРОШУ СРОЧНО НУЖНО) ПОСЛЕДНЕЕ ЗАДАНИЕ ДЛЯ ЭКЗАМЕНА ВЫПОЛНИТЬ В ПАСКАЛЕ


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;beginwriteln('Введите x');readln(x);if (x>=2) or (x<=-2) thenf[x]:=xelse f[x]:=4;writeln('f[x] = ',f[x]);end.