Решение в интегрированной среде разработки

Писал в среде pascalabc: var a: array of integer;             k,min,s,n,i: integer; begin write('задайте размер массива = '); readln(n); writeln; setlength(a,n); for i: =0 to n -1 do begin a[i]: =random(101); if a[i] mod 2 < > 0 then k: =k+1; if (a[i] < min) or (i=0) then  min: =a[i]; s: =s+a[i]; end; writeln('массив: '); writeln(a); writeln('кол-во нечетных элементов = ',k); writeln('минимум = ',min); writeln('среднее ариф. = ',s/n); end.

Var   a, b: integer; begin   readln(a, b);   if a * b < 0 then {если числа разных знаков}       writeln(2 * a, ' ', 2 * b)   else if a > 0 then begin{иначе одного знака и больше нуля}       if a > b then           writeln((a + b) / 2, ' ', b)       else           writeln(a, ' ', (a + b) / 2)   end   else begin       if a > b then           writeln(a, ' ', -b)       else           writeln(-a, ' ', b)   end; end.