Дано действительное число а.вычислите f(a), если а) f(х)= х2 при -2≤х< 2, 4 в противном случае; б) f(x)= x2+4x+5 при х≤2, 1/х2+4х+5 в противном случае; ..

А) var  a, y: real;
begin 
writeln('Введите число:'); 
readln(a);   
if (a >= -2) and (a < 2) then 
begin   
  y := a*a;   
  writeln('f(', a, ')=', y); 
end 
 else 
begin   
   y := 4;   
   writeln('f(', a, ')=', y); 
end;
end.

б) var a,y:real;

begin
writeln('Введите число');
readln(a);
if a<=2 then
begin
   y:=a*a+4*a+5;
   writeln(' f(',a,')=', y);
end
else
begin
  y:=(1/(a*a)) + 4*a +5;
 writeln('f(',a,')=',y);
end;
end.
***
Если что-то непонятно задавай вопросы.