1. Функция Y задана следующим образом Y = 1, если X>0; Y = 0, если X = 0; Y = -1, если X<0;
2. Решите квадратное уравнение ax (в квадрате)+bx+c = 0, где a,b,c вводим с клавиатуры. Посчитайте дискриминант и выведите три ответа: 1. Два корня (по формуле) 2. один корень (по формуле) 3. Решений нет
3. Даны целые числа a,b,c. Если a< = b< = c, то все числа заменить наименьшим из них, в противном случае сменить знак каждого числа.

1.
var x,y:integer;
begin
write(x = );
readln(x);
if xgt;0 
 then y:=1
 else if x=0 then y:=0 else y:=-1;
writeln(y = ,y);
end.

Пример:
x = -5
y = -1

2.
var a,b,c,x1,x2,d:real;
begin
writeln(Введите a, b, c:);
readln(a,b,c);
d:=b*b-4*a*c;
if dgt;0
 then begin
      x1:=(-b+sqrt(d))/(2*a);
      x2:=(-b-sqrt(d))/(2*a);
      writeln(x1 = ,x1, x2 = ,x2);
      end
  else if d=0 then begin
                   x1:=-b/(2*a);
                   writeln(x = ,x1);
                   end
               else writeln(Корней нет);
end. 

Пример:
Введите a, b, c:
2 5 -3
x1 = 0.5 x2 = -3

3.
var a,b,c:real;
begin
writeln(Введите a, b, c:);
readln(a,b,c);
if (alt;=b)and(blt;=c)
 then begin
      b:=a; c:=a;
      end
 else begin
      a:=-a; b:=-b; c:=-c; 
      end;
writeln(a = ,a, b = ,b, c = ,c);
end. 

Пример 1:
Введите a, b, c:
2 5 9
a = 2 b = 2 c = 2

Пример 2:
Введите a, b, c:
2 9 5
a = -2 b = -9 c = -5