begin
var a := SeqWhile(5, x -> x + 5, x -> x <= 90).ToArray;
a.Println;
end.
//Попробуем по-новому
var n:integer;
begin;
readln(n);
var ar:=ArrRandomInteger(n+1,10,99);
var i:=1;
while i<=n do
begin;
write(ar[i]:4);
i:=i+2;
end;
<span>end.</span>
1 - a
2 - a
3 - d
4 - a
5 - г
6 -
7 -
8 - d
9.19 - 2
10 - 6
Скинь фотографию чтобы понять а то так не понятно