Задача №309. Голосование Напишите "функцию голосования" function Election (x, y,...

Задача №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.