Uses crt;
VAR A,B,C:integer;
begin clrscr;
A:=B*C
readkey;
end.
begin
var n := ReadInteger;
var a := ArrRandom(n, -10, 10);
a.Println;
var s := a.Where(p -> p.InRange(0, 3)).Sum;
a.Transform(p -> p < 0 ? s : p);
Swap(a[1], a[a.High - 1]);
a.Println
end.
Номер называется "Скан-код"