нарисуйте спирали, с цикла и переменной

спирали треугольная и квадратная

Const rchars='аеиоуыэюя';var s: string; mas: array[1..length(rchars)] of integer; k,i: integer;
begin  s:='которой,нужно,напечатать,алфавитном,порядке,все,гласные,буквы,которые.'; {readln(s);}  {инициализация массива счётчика гласных}  for k:=1 to length(rchars) do    mas[k]:=0;  i:=1;  while i<=length(s) do begin  {проверка на соответствие буквы гласной, согласно списку гласных}    for k:=1 to length(rchars) do      if (rchars[k]=s[i]) and (mas[k]<>-1) then        mas[k]:=mas[k]+1;    if (s[i]=',') or (s[i]='.') then      begin

        {проверить повторение гласных на два и более раз и проинициализировать массив счётчик}        for k:=1 to length(rchars) do          if (mas[k]<=2) and (mas[k]<>-1) then            mas[k]:=0          else            mas[k]:=-1;      end;    Inc(i);  end;

  {Вывод повторяющихся гласных}
  s:='';  for k:=1 to length(rchars) do    if mas[k]=-1 then      s:=s+rchars[k];

  writeln(s);end.

Алг
нач
  целтаб А[1:2, 1:3]
  цел а, б
  вывод "Исходная матрица:", нс
  нц для а от 1 до 2
    нц для б от 1 до 3
      А[а,б] := irand(-9,9)
      вывод А[а,б], " "
    кц
    вывод нс
  кц
  вещ Б
  если А[1,1] >= 0
    то
      Б := 0
      нц для а от 1 до 2
        нц для б от 1 до 3
          Б := Б + А[а,б]
        кц
      кц
      вывод "Сумма = ", Б
    иначе
      Б := 1
      нц для а от 1 до 2
        нц для б от 1 до 3
          Б := Б * А[а,б]
        кц
      кц
      вывод "Произведение = ", Б
  всё
кон

Примеры работы программы:

Исходная матрица:
-2 -2 5
-8 -6 5
Произведение = 4800.0

Исходная матрица:
0 2 0
8 9 4
Сумма = 23.0

Исходная матрица:
0 9 1
3 -9 9
Сумма = 13.0