1-я задача:
<span>Я<=Г </span>
<span>Г=15 </span>
<span>Ответ: плодов не более 30 (15 груш и не более 15 яблок) </span>
Var a,n,i,ans:integer;
begin<span>
readln(a);</span><span>
readln(n);</span><span>
i:=0;</span><span>
ans:=1;</span><span>
while(i<n) do</span><span>
begin</span><span>
ans:=ans*a*a;</span><span>
inc(i);</span><span>
writeln(ans);</span><span>
end;
</span>end.
<span>Так? По тести)</span>