Программа на вычисление функции (Pascal)

[xRJ10]

Дано действительное число а. Вычислить f(a), где f-периодическая функция с периодом 1,5, совпадающая на отрезке [0,1.5] со следующей функцией:

===
Я вообще ничего не понимаю. Ни что нужно сделать, ни соответственно как. Подскажите знающие люди!

[IT-man]

var a,a1:real;
function f(x:real):real;
begin
if (x<=1.5) and (x>=1) then f:=-3*x+4
else f:=1.3*x-0.5;
end;
begin
  writeln('a=');
  readln(a);
  a1:=a-trunc(a/1.5)*1.5;
  Writeln('f(',a:6:2,')=',f(a1):6:2);
  readln;
end.