Если среди трех чисел 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 a>b then g:=a else g:=b;
if g>c then g:=g else g:=c;
end
else
if a<b then g:=a else g:=b;
if g<c then g:=g else g:=c;
Writeln('Максимальное или минимальное: ',g);
end.