<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(50, -50, 49);
a.Println.Where(t -> t.InRange(-5, 5)).Println(', ').Count.Println
end.
3. Слой для записи намагничивается пишущей головкой, положение пишущей головки управляется лазером.
1) Если 3 > 2, то истинно.
2) Если 2 > 3, то истинно