// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:= ArrRandom(10,0,20).Println;
a:= a.Where((v,i) -> i <> 4).ToArray;
a.Println;
end.
1) i=17 k=17 I=ki I=17*17 I=289
2)i=29 k=29 I=ki I=29*29 I=841
3)i=14 k=14 I=ki I=14*14 I=196