ОЧЕНЬ НУЖНО 1. напишіть програму, яка вивидить на екран ваше им'я 20 разів 2. Змініть її так, щоб на екран виводилося лише половина цих слів. 3. Змініть її, щоб на екран виводилося одне слово 4.Знайдіть суму перших 100 натуральних чисел 5.Знайдіть суму перших 20 парних натуральних чисел 6.Знайдіть суму перших 20 непарних натуральних чисел 7. Знайдіть добуток перших 10 натуральних чисел 8. Знайдіть добуток перших 5 парних натуральних чисел 9. Знайдіть добуток перших 5 непарних натуральних чисел 10. Змініть програму так, щоб вона працювала для будь-якаї кількості чисел.

//Pascal
var
  A: array [1 .. 5, 1 .. 4] of integer;
  V: array [1 .. 20] of integer;
  i, j, z: byte;
  SUM1, SUM2, SUM3, MIN: integer;
begin
  randomize;
  writeln('***Сгенерированный массив***');
  SUM1 := 0; SUM2 := 0; SUM3 := 0;
  for i := 1 to 5 do
  begin
    for j := 1 to 4 do
    begin
      A[i, j] := random(30);
      if ((A[i, j] >= 0) and (A[i, j] <= 5)) then SUM1 := SUM1 + A[i, j];
      if ((A[i, j] >= 5) and (A[i, j] <= 15)) then SUM2 := SUM2 + A[i, j];
      write(A[i, j]:6)
    end;
    writeln;
  end;
  writeln('Сумма элементов [0 5] = ', SUM1);
  writeln('Сумма элементов [5 15] = ', SUM2);
  MIN := A[3, 1];
  for j := 1 to 4 do if A[3, j] < MIN then MIN := A[3, j];
  writeln('Минимальный элемент в третьей строке = ', MIN);
  writeln('***Вектор***');
  j := 1;
  z := 0;
  while (z < 20) do
  begin
    for i := 1 to 5 do
    begin
      z := z + 1;
      V[z] := A[i, j];
    end;
    j := j + 1;
  end;
  for i := 1 to 20 do writeln(V[i]:6);
  for i := 20 downto 10 do SUM3 := SUM3 + V[i];
  writeln('Сумма последних 10-ти элементов = ', SUM3);
  readln;
end.