N=128,K=200.
8=2^7 значит I=200*7=1400 бит
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var K := ArrRandom(9, -50, 50);
K.Println;
K.Transform(t -> t * t);
K.Println
end.
<h3>22 -21 36 42 -2 37 42 29 49</h3><h3>484 441 1296 1764 4 1369 1764 841 2401</h3>
Например, можно так:
Repeat
<Действия>
Until <Условие>
Пример:
Repeat
Write('Хочу домой');
Readln(s)
Until s='иди'
Здесь будет всё время выходить "Хочу домой" и предлагаться ввод ответа, пока не будет введено "иди".