№309. голосование напишите "функцию голосования" function election (x, y, z: boolean): boolean входные данные вводится 3 числа - x, y и z (x, y и z равны 0 или 1, 0 соответствует значению false, 1 соответствует значению true). выходные данные необходимо вывести значение функции от x, y и z. примеры 0 0 1 0

Program n1;
var x,y,z: integer;
function Election(x,y,z: integer ): boolean;
begin
if(x=0) and (y=0) then Election:=false
else
begin
Election:=true;
if (x=0) and (z=0) then Election:=false
else
begin
Election:=true;
if (y=0) and (z=0) then Election:=false
else Election:=true;
end;
end;
end;
begin
readln(x,y,z);
if Election(x,y,z)=true then
writeln(1) else writeln(0);
end.