2. (16ann)var m, j: integer; //nepeceniblebeginm: = 0; for k: = 7 downto 2 dom : = m + 6; writeln(m); end.​

Procedure z1(); var a: array[1..50] of integer; i,k: integer; begin  for i: =1 to 50 do begina[i]: = random(10)-1; write(a[i]: 3); if a[i] =0 thenk: =k +1; end; writeln; write('количество нулей = ',k); end; procedure z2(); var a: array[1..30] of integer; i: integer; p: double; begin p: =1; for i: =1 to 30 do begina[i]: = random(10)+1; write(a[i]: 3); if (i> 1) and (i < 30)thenp: =p*a[i]; end; writeln; write('произведение чисел = ',p); end; procedure z3(); var a: array[1..40] of integer; i,k: integer; begin  for i: =1 to 40 do begina[i]: = random(10)+1; write(a[i]: 3); if i mod 3 =0 then  k: =k + a[i]; end; writeln; write('сумму чисел = ',k); end; begin  z1(); writeln; z2(); writeln; z3(); end.

Program x; //работает только для строк var          i: longint;         s: string; begin     readln(s);     for i : = 1 to length(s) do         if (ord(s[i]) > = 192) and (ord(s[i]) < = 223) then             s[i] : = chr(ord(s[i]) + 32)         else if (ord(s[i]) > = 224) and (ord(s[i]) < = 255) then             s[i] : = chr(ord(s[i]) - 32);     writeln(s) end.