ДЗ:

1. Даны две переменные A и B. Если их значения не равны, то присвоить каждой переменной большее из этих значений, а если равны, то присвоить переменным ноль. Вывести новые значения переменных A и B.

2. Даны три переменные: A, B, C. Если их значения упорядочены по возрастанию или убыванию, то удвоить их; в противном случае заменить значение каждой переменной на 0. Вывести новые значения переменных A, B, C.

это срочно

1.var

  a, b: integer;   begin   writeln('Введите значения a и b:');   readln(a, b);   if (a = b) then begin     a := 0;     b := 0;   end;   if  not (a = b) then  // Здесь можно вместо not (a=b) написать (a<>b)!!! А смысл, разберётесь сами!!!     if (a > b) then       b := a       else     if (a < b) then a := b;   writeln('a= ', a, ' b=', b); end.

2.

program if17;

var

  A, B, C: Real;

begin

  Write('Введите число A: ');

  Readln (A);

 

  Write('Введите число B: ');

  Readln (B);

 

  Write('Введите число C: ');

  Readln (C);

 

  if ((A<B) and (B<C)) or ((A>B) and (B>C)) then

   begin

    A:=A*2;

    B:=B*2;

    C:=C*2;

   end

  else

   begin

     A:=A*(-1);

     B:=B*(-1);

     C:=C*(-1);

   end;

  Writeln('Число A равно: ',A);

  Writeln('Число B равно: ',B);

  Writeln('Число C равно: ',C);

end.