Внимание! Если программа не работает, обновите версию Pascal !
begin
var mas:=ArrRandom(15,0,10); mas.Println;
mas.Select((v,i)-> v =0 ? i*i:v).Println;
end.
<h3><u>Ответ</u>: олимп, лимон, леска.</h3>
<em>* Подробнее в приложении.</em>
Program Chisla;
Var a,p:integer;
Begin
P:=1
For a:=10 to 16 do
P:=p*a;
Writeln(P);
End.