begin
var ss := ReadSeqInteger(ReadlnInteger('n ='));
ss.Count(x -> (x > 0) and (x mod 5 = 0)).Println;
end.
И еще после последней строчки
кон
program raf105;
var
s: string;
g: integer;
function glas(s:string): integer;
const
glas_list = 'аяоёуюыиэе';
var
i,j,res:integer;
begin
s:= lowercase(s);
for i:=1 to length(s) do
for j:=1 to length(glas_list) do
if s[i] = glas_list[j]
then res:= res + 1;
glas:= res;
end;
begin
write('Введите строку: ');
readln(s);
g:= glas(s);
writeln('В строке ',g,' глас.');
end.
<h3><u>PascalABC 3.4.2</u></h3>
[4, "11331"]
[5, "3011"]
[6, "1433"]
[7, "1053"]
[8, "575"]
[9, "463"]
[10, "381"]
[11, "317"]
[12, "279"]
[13, "234"]
[14, "1d3"]
[15, "1a6"]
[16, "17d"]
[17, "157"]
[18, "133"]
[19, "111"]
[20, "j1"]
[21, "i3"]
[22, "h7"]
[23, "gd"]
[24, "fl"]
[25, "f6"]
[26, "eh"]
[27, "e3"]
[28, "dh"]
[29, "d4"]
[30, "cl"]
[31, "c9"]
[32, "bt"]
[33, "bi"]
[34, "b7"]
[35, "av"]
[36, "al"]
код на Ruby
for i in 4..36
p [i, 381.to_s(i)]
end