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

1)

var

 x, y: real;

begin

 write('x = ');

 readln(x);

 if x gt; 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 gt;= -6) and (x lt; 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 lt;= 3) or ((x gt;= 11) and (x lt; 28)) then write('y = ', абс(-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 gt; -4) and (x lt; 8)) or ((x gt; 32) and (x lt; 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] gt; mas[3] then mas[3] := mas[a];

 end;

 write(mas[3]);

end.