Составить схему алгоритма и программу вычисления функции

var
  a, b, c, y, x: real;
  num: integer;
 
begin
  write('Введите x > ');
  readln(x);
  
  write('Исходные данные (1, 2 или 3) > ');
  readln(num);
  
  case num of
    1: 
      begin
        a := 1.2;
        b := 1.4;
        c := 2.2;
      end;
    2:
      begin
        a := 1.8;
        b := 2.1;
        c := 2.8;
      end;
    3:
      begin
        a := 1.95;
        b := 2.8;
        c := 3.5;
      end;
  else
    begin
      writeln('Выбрано неправильно2!');
      num := 0;
    end
  end;
  
  if num <> 0 then
  begin
    if x <= a then 
    begin
      y := power(cos(a), 2) * a + c + power(x, 2) + b;
      writeln('y = ', y);
    end
    else
    begin
      if x >= b then
      begin
        y := sin(a) + power(x, 2) - b * c;
        writeln('y = ', y);
      end
      else
        writeln('Функция не определена.');
    end
  end;
end.