//PascalABC.Net 3.2
begin
var a:=arrRandom (random(5, 10), -15, 15); a.Println;
for var i:=0 to length(a)-1 do if a[i].isodd then a[i]*=-1;
a.Println
end.
Uses crt;
var a:integer;
begin
a:=10000;
repeat
if (a mod 133=125) and (a mod 134=111) then writeln(a);
a:=a+1;
until a>99999;
end.
Var s:string;
begin
for var i:=1000 to 9999 do
begin
s:=i.ToString;
if((strtoint(s[1])+strtoint(s[2])+strtoint(s[3])+strtoint(s[4]))<4)then write(i,' ');
end;
end.
(A v не A) & (B & 1) = (A + -A) × (B × 1) = 0 × (B × 1)