Вводятся оценки за контрольную работу по и . выведите на экран "молодец" , если их сумма равна или более 9 , иначе -"подтянись"

Var a, b : integer; begin writeln('введите оценку по '); readln(a); writeln('введите оценку по '); readln(b); if (a+b)> =9 then writeln('молодец') else  writeln('подтянись'); end.

1) - 2) 20 18 14 8 0 -10 -22 -36 -52 -70 3) 4   код полностью var       a: array[1..10] of integer;       i, k: integer; begin       for i : = 1 to 10 do       begin               a[i] : = 20 - i * (i - 1);               write(a[i], ' ');       end;       writeln;             k : = 0;       for i : = 1 to 10 do               if a[i] > i then k : = k + 1;       write(k);       writeln;             end.  

1) не ясен вопрос 2) 0 2 6 12 20 30 42 56 72 90 3) 5 4) for i : = 1 to 10 do       begin               if (a[i] < 0) then                       a[i] : = -1               else a[i] : = 1;               write(a[i], ' ');       end; код полностью   var       a: array[1..10] of integer;       i, k: integer; begin       for i : = 1 to 10 do       begin               a[i] : = sqr(i) - i;               write(a[i], ' ');       end;       writeln;             k : = 0;       for i : = 1 to 10 do               if (a[i] > 10) and (a[i] < 70) then                       k : = k + 1;       write(k);       writeln;             for i : = 1 to 10 do       begin               if (a[i] < 0) then                       a[i] : = -1               else a[i] : = 1;               write(a[i], ' ');       end; end.