Задание 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.
Трассировочная таблица на второй картинке.
