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>
Буква "ш" + нарисованная бутылка "кола"
или слово
шоколад
а под ним цифры 2 и 7 зачеркнутые
Program first;
Var a,k,x,y,n,i:integer;
begin
readln(a,x,k);
n:=0;
while n<k do
begin
y:=a*x;
writeln(y,' ',x);
n:=n+1;
end;
end.
Пробуй ,вроде бы должно работать