Придумай название зверю и заполни таблицу, состав действия, нужно заполнить таблицу

Название ну к примеру шипобронехвостец

Var n,m,k: integer; begin   m: =0;   k: =0;   write('числа через пробел:   ');   read(n);   repeat     m: =n;     repeat         m: =m div 10;       until m< 10;     if (m=4) and ((n mod 6) = 0) then k: =k+1;     read(n);   until n=0;   writeln('количество чисел = ',k);     end.     результат работы:   числа через пробел:   42 432 438 156 478 0 количество чисел = 3

Var s,gl: string;     i: integer;     ps: set of integer; begin   gl: ='аеёийоуыэюя';     write('строка:   ');     readln(s);     ps: =[];     i: =2;     repeat       if pos(s[i],gl)> 0 then ps: =ps+[i];       i: =i+2;     until i> length(s);     write('множество четных позиций с гласными:   ');     foreach i in ps do write(i,' '); end.     результат работы:   строка:   это строка для проверки множество четных позиций с гласными:   20 18 10 8 14