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;beginwrite('x = ');readln(x);if x>0  then y:=1 else if x=0 then y:=0 else y:=-1;writeln('y = ',y);end.Пример:x = -5y = -12.var a,b,c,x1,x2,d:real;beginwriteln('Введите a, b, c:');readln(a,b,c);d:=b*b-4*a*c;if d>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 -3x1 = 0.5 x2 = -33.var a,b,c:real;beginwriteln('Введите a, b, c:');readln(a,b,c);if (a<=b)and(b<=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 9a = 2 b = 2 c = 2Пример 2:Введите a, b, c:2 9 5a = -2 b = -9 c = -5