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.
Фух... х)