function first_y(a, x: real): real;
begin
  first_y:= a*sin(x);
end;
function second_y(a, x: real): real;
begin
  second_y:= a*cos(x-1)+Abs(x);
end;
function third_y(x: real): real;
begin
  third_y:= (x+3)/(x-2);
end;
function fourth_y(x: real): real;
begin
  fourth_y:= x/(2*(x+1));
end;


var
  x0, x1, a, step: real;
  funcNum, i: integer;
begin
  write('Введите номер функции: ');
  readln(funcNum);
  write('Введите шаг функции: ');
  readln(step);
  case funcNum of
    1:
      begin
        write('Введите x0, x1 и A: ');
        read(x0, x1, a);
        if x1>x0 then
        begin
          for i:=0 to Trunc((x1-x0)/step) do
          begin
            writeln('f(', x0+i*step, ') = ',  first_y(a, x0+i*step))
          end;
          if i*step<(x1-x0) then writeln('f(', x1, ') = ', first_y(a, x1))
        end
        else
        writeln('x1<x0')
      end;
    2:
      begin
        write('Введите x0, x1 и A: ');
        read(x0, x1, a);
        if x1>x0 then
        begin
          for i:=0 to Trunc((x1-x0)/step) do
          begin
            writeln('f(', x0+i*step, ') = ',  second_y(a, x0+i*step))
          end;
          if i*step<(x1-x0) then writeln('f(', x1, ') = ', second_y(a, x1))
        end
        else
        writeln('x1<x0')
      end;
    3:
      begin
        write('Введите x0 и x1: ');
        read(x0, x1);
        if x1>x0 then
        begin
          for i:=0 to Trunc((x1-x0)/step) do
          begin
            writeln('f(', x0+i*step, ') = ',  third_y(x0+i*step))
          end;
          if i*step<(x1-x0) then writeln('f(', x1, ') = ', third_y(x1))
        end
      end;
    4:
      begin
        write('Введите x0 и x1: ');
        read(x0, x1);
        if x1>x0 then
        begin
          for i:=0 to Trunc((x1-x0)/step) do
          begin
            writeln('f(', x0+i*step, ') = ',  fourth_y(x0+i*step))
          end;
          if i*step<(x1-x0) then writeln('f(', x1, ') = ', fourth_y(x1))
        end
      end;
  else
    writeln('Функции с таким номером нет')
  end;
end.