Эта задача абсолютно линейна, потому блок-схемы для ее решения не требуется (важно лишь помнить о последовательности "ввод-операция-вывод". Единственный хитрый момент - сама запись этих выражений (s:= power(x, 3)*tan(x+b)*tan(x+b)+a/sqrt(x+b); q:= b*(power(x, 2)-a)/(exp(a*x)-1);
. Для того, чтобы лазарус воспринимал необходимые для решения команды, нужно подключить библиотеку Math. Делаем это в разделе implementation, дописывая Math в строчку к uses. Теперь можно написать код

Код:

var a, b, x, q, s: single; // объявление переменных
begin
     a:= strtofloat(edit1.Text);
     b:= strtofloat(edit2.Text);
     x:= strtofloat(edit3.Text); //ввод данных
     s:= power(x, 3)*tan(x+b)*tan(x+b)+a/sqrt(x+b);
     q:= (b*power(x, 2)-a)/(exp(a*x)-1); //оба выражения
     edit4.Text:= floattostr(s);
     edit5.Text:= floattostr(q); //вывод ответа
end;

Сначала нужно создать форму, на которой следует расположить следующие объекты:     
Button1: TButton;  \\ кнопка для рисования многоугольников
    Edit1: TEdit; \\ содержит количество углов
    Edit2: TEdit;  \\ содержит длину стороны
    Image1: TImage; \\ объект на котором будем рисовать
    Label1: TLabel;  \\ метка для описания интерфейса
    Label2: TLabel;   \\ метка для описания интерфейса.

Теперь необходимо разобраться, как же рисовать сами многоугольники.
Вначале необходимо нарисовать прямую линию нужного размера, это будет основа многоугольника. Затем нужно нарисовать линию того же размера но повернутую на угол вычисленный по формуле (180*(n-2))/n.
Для того чтобы повернуть линию будем использовать формулу:
x := Round(x + dim* cos(u));
y := Round(y - dim* sin(u));
Тут главная переменная u, которая содержит угол поворота линии.
Вот код который строит линию, повернутую на угол u:
form1.Image1.Canvas.Line(x, y, Round(x + dim * cos(u)), Round(y - dim * sin(u)));
x,y – начало линии.
Dim – длинна линии.
Если взять u=(108*(n-2))/n то при программировании не чего не получиться, так как в Lazarus  углы откладываются от одной и той же линии, которая является нулем. Если построить две линии для u=0 и для u=(108*(n-2))/n, то получим:

Горизонтальная линия построенна при угле в нуль градусов. И вторая построенна при угле 0+(108*(n-2))/n
А нам необходим вот этот угол:

Этот угол найти нетрудно он равен 180-(108*(n-2))/n.
Теперь можно переходить к программированию. Вначале необходимо задать начальные значения переменных:
         x:=300;  \\ координата  x начала многоугольника
        y:=600;  \\ координата  y начала многоугольника
     count:=strtoint(edit1.Text);  \\ количество углов многоугольника
     dim:=strtoint(edit2.Text);  \\ длина стороны многоугольника
     p:=pi-((pi*(count-2))/count); \\ вычисление угла в многоугольнике
     u:=0;  \\ значение угла для первой линии многоугольника
Далее необходимо задать цикл который будет строить линии постоянно поворачивая их на угол 180-(108*(n-2))/n, но так как нужно строить не от нуля мы будем прибавлять к старому углу новое значение.
Получим выражение
U:=u+p;
Так как p:= 180-(108*(n-2))/n,
Остается лишь построить линию с такими координатами. Вот весь код обработчика событий для кнопки:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  i,dim,count,x,y:integer;
  u,p:real;
begin
        Image1.Canvas.Brush.Color:=clwhite;
  Image1.Canvas.Pen.Color:=clblue;
Image1.Canvas.Pen.Width:=5;
  Image1.Canvas.FillRect(0,0,form1.Width,form1.Height);
        x:=300;
        y:=600;
     count:=strtoint(edit1.Text);
     dim:=strtoint(edit2.Text);
     p:=pi-((pi*(count-2))/count);
     u:=0;
     for i:=1 to count do
       begin
           form1.Image1.Canvas.Line(x, y, Round(x + dim * cos(u)), Round(y - dim * sin(u)));\\ строим линию
           x := Round(x + dim* cos(u));\\вычисляем новые координаты
                   y := Round(y - dim* sin(u)); \\вычисляем новые координаты
           u:=u+p; \\ получаем новый угол
       end;
end;

Окно рабочей программы: