1.дано целое число n.написать программу , увеличивающую число в 3 раза , если оно больше нуля 2.дано целое число n.написать программу , заменяющую его нулём , если больше или равно нулю, и увеличивающая его в 2 раза , если число меньше нуля. 3 .дано целые числа a и b .написать программу , которая выводит сначала большее число , затем меньшее. 4.даны числа a, b, c.написать программу , выводящую их в возрастающем порядке.

Янапишу часть кода.инициальзация очевидна 1: readln(n); if n > 3 then n: = n*3; writeln(n); 2: readln(n); if n < 0 then n: = n*2 else n: =0; writeln(n); 3: readln(a,b); if a c: =a; a: =b; b: =c; end; writeln(a,b); 4: аналогично с 3только сравниваеье снаяала а и b, а и с,затем b и с,если возникнут трудности код выложу

Var   a, b, c, aa, ab, ac : real; function arcsin (x : real) : real; begin arcsin : = arctan(x/sqrt(1-sqr(; end; //магия. в паскале нет функции арксинус или арккосинус, поэтому приходится выражать через арктангенс. begin   read (a, b, ac);   ac : = ac   * pi / 180; // перевод в радианы   c : = sqrt (sqr (a) + sqr (b) - 2 * a * b * cos (ac));   aa : = arcsin (a * sin (ac) / c);   ab : = pi - aa - ac;   writeln (a, ' ', b, ' ', c);   writeln (aa * 180 / pi, ' ',  ab * 180 / pi, ' ',  ac * 180 / pi); end.

Var   arr : array [1..30] of integer;   sum, count, i, a : integer; begin   read (a);   for i : = 1 to 30 do read (arr[i]);   count : = 0; sum : = 0;   for i : = 1 to 30 do   begin     if arr[i] < 0 then sum : = sum + arr[i]     else if (arr[i] > 0) and (arr[i] < = a) then count : = count + 1;   end;   writeln (sum, ' ', count); end. var   arr : array [1..30] of integer;   i : integer; begin     for i : = 1 to 30 do read (arr[i]);   for i : = 30 downto 2 do     if arr[i] * arr[i - 1] < 0 then // проверка знака     begin       writeln (i - 1);         halt; // остановка программы     end;   writeln ('-1'); // таких нет end.