a)
var
a, sum, i : integer;
begin
readln(a);
sum:=0;
while a > 0 do begin
sum:= sum + (a mod 10);
a:= a div 10;
end;
writeln((sum mod 2) = 0);
end.
б)
var
a, b, c: integer;
res: boolean;
begin
readln(a, b, c);
res := (a <> b) and (a <> c) and (b <> c);
writeln(res);
end.
