Розв’язок задачі з Абрамова №58б

Всі умови | Умова: Дано дійсне число a. Функція f(x), графіки якої представлений на мал. 1, a - 1, г, обчислити f(a). (С.А. Абрамов, Г.Г. Гнездилова,Е.Н. Капустина, М.И. Селюн. Задачи по программированию. - Вологда, 2000. - №58)

program p58_2;
var
  a, f : real;
begin
  write('a = '); readln(a);
  if (a < -1) then
    f := 1 / sqr(a)
  else if (a >= -1) and (a <= 2) then
    f := sqr(a)
  else
    f := 4;
  writeln('f  = ', f:5:2);
  readln;
end.