Задание 1.

Увы, даже не предполагаю, что тут надо сделать

Задание 2.

Блок-схема на первой картинке

Задание 3.

var y: real;

x, a, b, c: integer;

begin

   a:=-5;

   b:=5;

   c:=5;

   while a <= b do

   begin

       x:=a;

       if x <= 0 then

           y:=5 - sqr(x) / 2;

       if x > 0 then

           y:=2 / sqr(x);

       writeln('x = ', x, '; y = ', y);

       a += c;

   end;

end.

Задание 4.

Трассировочная таблица на второй картинке.