ОЧЕНЬ НАДО НАРОД! ПОМОГИЕТ
Создайте алгоритм и программу для вычисления значения функции F по формулам:

var   
a,r : integer;    
begin 
readln (a);     
if a < - 10 then   
  r := 2 * a * a * a   
else   
   if a > 5 then     
      r := 3 * a * a       
   else     
      r := a * a - 3 * a +1;   

writeln (r); 
end.