Помогите,пожалуйста!

1. Дан фрагмент алгоритма: x:= -8; y:=-5 если x<0 то y:=6 - 3 * x; если y<0 то y:= 2 * y иначе y:= y / 5 + х Чему равно значение переменной y после его исполнения? 2. Задан фрагмент алгоритма: z=0 если x>0 то если y>0 то z=1 иначе y=2 В результате его выполнения с начальными значениями x=1, y=-1 переменная z будет иметь значение….? 3. Составить программу, которая запрашивает ввод формул трех кислот и проверяет, есть ли среди них формула серной кислоты. 4. Составить блок-схему алгоритма, который запрашивает ввод температуры тела человека и определяет, здоров он или болен (здоров при 36 < t < 37)? 5. Даны координаты точки, не лежащей на координатных осях. Определить номер координатной четверти, в которой находится данная точка. 6. Даны координаты двух точек. Определить, какая из них ближе к началу координат.

3.Var

H2SO4:string;

B:integer;

Begin

B:=0;

WriteLn('Введите три формулы кислот');

ReadLn(H2SO4);

if H2SO4 = 'H2SO4' then B:=1;

ReadLn(H2SO4);

if H2SO4 = 'H2SO4' then B:=2;

ReadLn(H2SO4);

if H2SO4 = 'H2SO4' then B:=3;

if B = 0 then WriteLn('Формулы серной кислоты среди них нет')

else WriteLn('Формула серной кислоты: №',B)

End.

4.var a: real;

begin

write ('Введите Вашу температуру: ');

read(a); //Вещественное число вводится через точку

if (a>=36) and (a<=37) then writeln ('Вы здоровы!') else writeln ('Вы больны!');

end.