Будь ласка, розкодуйте повідомлення +6-2-2+5+8+8+7-7-6+2+4+0-5+5+3-3-4+5-2+1-3+4-3+3-7+2+1+3-4+5-2+1-6+2-1+5-6+2+2+ 3-2+2-5+5-2+1-3+4-7+2+5+0-2+1-6+2+2+2-1+1-3+4+2-3-4+5-2+1-6+2+7-3-9+9-3+3-4+5-2 +1-5+5-3+4-2+1+7+6
+4+1+3-2-5+5-2+3-7+2+2+3+1-2-1+1-4+5-2+1-4+4+3-2-7+2+0+4-1+1-5+5-1+2-3+3+2-2+1- 6+1+4-7+2+0+5+8+8-3+4-2+1-6+2-6-7+3-3+1-1+2-2-2+3-7+2-5+9-1+1+0+1-2+1-4+5-7+2+2 +2+3-3-1+1+7+6

А) 21 24 27 30 (каждый раз к числу прибавляется 3 единицы)
б) 35 40 45 50  (каждый раз к числу прибавляется 5 единиц)
в) 27 31 35 39  (каждый раз к числу прибавляется 4 единицы)
г) 19 18 16 15 (сначала отнимаешь 2 единицы, потом 1 единицу, и все ещё раз повторяется)
д) 25 36 49 64 (каждый раз увеличиваешь на не чётное число т.е  на 9,11,13,15)
е) 46 47 48 56 (сначала прибавляешь 8 единиц, а затем к двум числам прибавляешь по единице, а после все повторяется сначала)
ж) 55 62 69 75 (каждый раз прибавляешь по 7 единиц)
з) 32 24 16 8 (каждый раз отнимаешь по 8 единиц)
и) 400 500 600 700 (каждый раз прибавляешь по 100 единиц)
к) 312 313 314 412 (случай такой же как и под буквой е) только увеличиваешь сначала сотни, а потом единицы)
л) 312 322 332 412 (это аналогично только сначала увеличиваешь сотни, а потом десятки)
м) 33 65 129 257 ( сначала увеличиваешь на 2 в 4 степени (это 16), потом на 2 в 5 степени (это 32) и т.д.)
н) 12 17 23 30 (каждый раз прибавляешь последующее число от начала счета т.е к числам которые нужно написать сначала увеличиваешь на 4 потом на 5, на 6 и на 7)
о) 48 63 80 99 (точно такой же случай как и под буквой д)
п) 216 343 512 719 ( это все числа в кубе например (1 в кубе это 1), (2 в кубе это 8),(3 в кубе это 27), (4 в кубе это 64), (5 в кубе это 125) ну и так далее)
я надеюсь что не запуталась в этих цифрах)) 

Program Project1;

var m:array [0..14] of integer; i:integer;

function IsPositive(a:integer):boolean;
begin
  result:=(a>-1);
end;

procedure work;
var min, max, count:integer;
begin
  count:=0;
  min:=m[0];
  max:=0;
  for i:=0 to 14 do begin
    if IsPositive(m[i]) then begin
      inc(count);
      if m[i]>max then max:=m[i];
      if m[i]<min then min:=m[i];
    end;
  end;
  writeln('MAX: ', max);
  writeln('MIN: ', min);
  writeln('Count: ', count);
end;

begin
  for i:=0 to 14 do begin
    write('n: ');
    readln(m[i]);
  end;

  work;

  readln;
end.