Ты изучил основы программирования на языке Паскаль?
Тогда внимательно ознакомься с условие и вычисли,
чему будет равна функция z при выполнении фрагмента программы:
If (x>-2) and (x<2) then
begin
z:=sqrt(x)+1;
end;
if (x>=3) and (x<=5) then
begin
z:=sqr(x)•2
end;
if (x>=6) and (x<=8) then
begin
z:=x div 2; end
else writeln(‘Нет решений’);

Введи значение переменной х: 1.
Вычисляем значение функции z при выполнении фрагмента программы: ...