<u>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var b:=ReadArrInteger(ReadInteger('N='));
b.Where(t->(t<=0) and (t mod 3=0)).Count.Println
end.
1) A - 0011
B - 0101
A∨B - 0111
B&(A∨B) - 0101
Точки: 2,1; 2,5; 5,7; 8,5; 2,5; 8,1; 2,1; 8,5
Var
s, s1, sn: string;
i, n, p1, p2: integer;
begin
Readln(s);
p1 := Pos(' ', s) - 1;
n := Length(s);
i := n;
while s[i] <> ' ' do i := i - 1;
p2 := i + 1;
s1 := Copy(s, 1, p1);
sn := Copy(s, p2, n + 1 - p2);
s := sn + Copy(s, p1 + 1, p2 - p1 - 1) + s1;
Writeln(s)
end.