<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
ReadSeqInteger(ReadlnInteger)
.Where(t->(t mod 6=0) and (t mod 10=4)).Count.Println
end.
Администрирование или программирование, что интересует?
const m = 6; n = 4; var
i, j: integer;
a: array[1..m, 1..n] of integer;
b: array[1..n]oflongint; p: longint;