Если посреди трех чисел a, b, c имеется желая бы одно

Program trichisla;
var a,b,c,g:integer;

begin
Writeln('Введите 3 числа через пробел');
Readln(a,b,c);
if (a mod 2 =0) or (b mod 2= 0) or (c mod 2=0) then
begin
if agt;b then g:=a else g:=b;
if ggt;c then g:=g else g:=c;
end
else
if alt;b then g:=a else g:=b;
if glt;c then g:=g else g:=c;
Writeln('Наибольшее либо малое: ',g);
end.