как находить значение функции???

[semenova1304]

помогите пожалуйста! Написать программу, которая по введенному с клавиатуры значению аргумента находит значение функции. Функция задается в виде графика. Параметр R вводится с клавиатуры.

http://s16.radikal.ru/i191/1112/85/48e4c45f13bd.jpg

саму программу я знаю как делать. но вот беда не помню как находить уравнение на отрезке помогите пожалуйста..

program first;
 var x,y,r:real;
 begin
 readln (x,r);
 if (x>-3) and (x<-1) then
 begin
 y:=???;
 writeln('y равно',y);
 end;
 if (x>-1) and (x<1) then
 begin
 y:=????;
 writeln('y равно',y);
 end;
 if (x>1) and (x<5) then
 begin
 y:=??????;
 writeln('y равно',y);
 end;
 if (x>5) and (x<7) then
 begin
 y:=?????;
 writeln('y равно',y);
 end;
 if (x<-3) and (x>7) then
 writeln('нет данных')
 end.

а как уравнения находить??? очень надо