Для двух следующих задач дан набор команд в произвольном порядке \(других команд в программах быть не должно\). Соберите программы путем выбора правильных команд.

• Группы
  • Составить программу, которая, если введенное число отрицательное, меняет его на противоположное.
  • Даны 2 числа. Большее уменьшить в 2 раза, а меньшее возвести в квадрат. Вывести полученные значения
• Варианты
  • Var x : integer;
  • Begin
  • writeln\('Введите число '\);
  • Var a,b : real;
  • Begin
  • readln\(x\);
  • if x<0 then
  • x:=-x;
  • write \(x\);
  • writeln\('Введите числa '\);
  • read \(a,b\);
  • if a<b then
  • Begin
  • a:=a*a; b:=b/2;
  • write\(‘a= ’, ‘ b= ’,b\)
  • End
  • else
  • Begin
  • b:=b*b; a:=a/2;
  • write\(‘a= ’, ‘ b= ’,b\)
  • End;
  • End.
  • End.