Пожалуйста помогите, на носу информатика, а я нуль в этом!

1)

var

 x, y: real;

begin

 write('x = ');

 readln(x);

 if x > 13 then write('y = ', (2 - x) / (sqr(x) + 3)) else write('y = ', 54 + 2 * x);

end.

2)

var

 x, y:  real;

begin

 write('x = ');

 readln(x);

 if (x >= -6) and (x < 8) then write('y = ', sqrt(8 * x + 4) - 2) else write('y = ', (3 * x - 2) * sqr(x));

end.

3)

var

 x, y:  real;

begin

 write('x = ');

 readln(x);

 if (x <= 3) or ((x >= 11) and (x < 28)) then write('y = ', abs(-5 * x + 12) + 2) else write('y = ', (sqrt(x + 3) - 9) * 9 * x);

end.

4)

var

 x, y:  real;

begin

 write('число ');

 read(x);

 if ((x > -4) and (x < 8)) or ((x > 32) and (x < 76)) then write('принадлежит данному промежутку') else write('не принадлежит данному промежутку');

end.

5)

var

 mas: array[0..3]of real;

 a: integer;

begin

 for a := 0 to 2 do  

 begin

   read(mas[a]);

   if mas[a] > mas[3] then mas[3] := mas[a];

 end;

 write(mas[3]);

end.