Запиши назначения следующих кнопок в тетрадь . При рисовании каких фигур используются эти кнопки

На языке Pascal.
program average_elems;
var a, b : array[1..1000] of integer; 
n, i, m, sum1, sum2 : integer;
begin
  read(n);
  for i:=1 to n do begin
    read(a[i]);
    sum1 := sum1 + a[i];
    end;
  read(m);
  for i:=1 to m do begin
    read(b[i]);
    sum2 := sum2 + b[i];
    end;
  write(sum1 div n, ' ', sum2 div m, ' ', sum1 div n + sum2 div m);
end.

a, b - первый и второй массивы. n, m - кол-во элементов в массивах a и b соответственно, sum1, sum2 - суммы элементов в первом и втором массивах соответственно. 

1. 10
2. 12
3. 3
4. 22
5. 15
6. 34
7. 3
Часть 2
1. 
Var
  n:integer;
Begin
  Write('Введи число ');
  Readln(n);
  if (n mod 2) = 0 then write(n,' чётное) else write(n,' нечётное);
End.
2.
Var
  a,b:integer;
Begin
  Write('Введи числа ');
  Readln(a,b);
  if a>b then Begin Write('a = ',b*a,' b = ',a+b) else write('a = ',a+b,' b = ',a*b);
End.
3.
Var
  n:integer;
Begin
  write('Введи двузначное число ');
  Readln(n);
  if ((n div 10) = 6) or ((n mod 10) = 6) then write('6 присутствует') else write('6 нет в этом числе');
End.