1)
var x, y: real;
begin
     readln(x);
     y := sqrt(sqr(x) - 5 * x + 6) / (sqr(x) - 1);
     writeln('y(', x, ') = ', y);
end.

2)
var a, b, c: real;
begin
     readln(a, b, c);
     if ((a > 0) or (b > 0) or (c > 0)) then writeln(a + b + c)
        else
        begin
             if (b > a) then a := b;
             if (c > a) then a := c;
             writeln(a);
        end;
end.

3)
var a, b, c, m, i: real;
begin
     readln(a, b, c);
     m := a;
     if (b > m) then m := b;
     if (c > m) then m := c;
     if (m < 0) then
     begin
          m := 0;
          if (a < 0) then m := m + 1;
          if (b < 0) then m := m + 1;
          if (c < 0) then m := m + 1;
     end
     else 
     begin
          m := 0;
          if (a > 0) then m := m + 1;
          if (b > 0) then m := m + 1;
          if (c > 0) then m := m + 1;
     end;
     writeln(m);
end.

Фух... х)