1)Ввести 2 числа,заменить число суммой чисел,а большее произведением. 2)Ввести 2 числа А и В заменить первое нулем если оно меньше второго. 3)Журнал стоит k руб.Какую сдачу получит покупатель если у него в руб. 4)Определить ,яв...

1) var   a, b, c: real;   IDE: boolean;   begin   IDE:= false;   writeln('Введите 2 числа');   readln(a, b);   c:= a;   if (IDE = false) and (a < b) then    begin     a:= a + b;     b:= c * b;     IDE:= true;     writeln('a = ', a, ', b = ', b);   end;   if (IDE = false) and (b < a) then    begin     a:= a * b;     b:= a + b;     IDE:= true;     writeln('a = ', a, ', b = ', b);   end;   if (IDE = false) and (a = b) then   begin     writeln('Числа равны');     IDE:= true;   end; end. 2) var   a, b: real;   begin   writeln('Введите 2 числа');   readln(a, b);   if a < b then a:= 0;   writeln('a = ', a, ', b = ', b); end. 3) var   k, b: real;   begin   writeln('Введите цену журнала');   readln(k);   writeln('Введите, сколько у покупателя денег');   readln(b);   if b > k then writeln('Покупатель получит ', b - k, ' р сдачи');   if b = k then writeln('Покупатель не получит сдачи');   if b < k then writeln('Покупателю придется доплатить ', k - b, ' р'); end. 4) var   a: 100000..999999;   a1, a2, a3, a4, a5, a6: 1..9;   begin   writeln('Введите шестизначное число');   readln(a);   a1:= a div 100000;   a2:= (a mod 100000) div 10000;   a3:= (a mod 10000) div 1000;   a4:= (a mod 1000) div 100;   a5:= (a mod 100) div 10;   a6:= a mod 10;   if (a1 + a2 + a3) = (a4 + a5 + a6) then writeln('Число является счастливым')   else writeln('Число не является счастливым'); end. 5) var   a, b: integer;   begin   writeln('Введите числа A и B');   readln(a, b);   if b mod a = 0 then writeln('Число ', a, ' является делителем числа ', b)   else writeln('Число ', a, ' не является делителем числа ', b); end. Если все правильно, отметь решение как лучшее) Если возникнут вопросы - задавай