Определить, будет ли из трех данных чисел только одно нечетным. (pascal)

Var a,b,c: integer;
f: boolean;
begin
f:=false;
readln(a,b,c);
if (a mod 2<>0) and (b mod 2=0) and (c mod 2=0) then f:=true;
if (a mod 2=0) and (b mod 2<>0) and (c mod 2=0) then f:=true;
if (a mod 2=0) and (b mod 2=0) and (c mod 2<>0) then f:=true;
if f then write('только одно число нечетное')
else write('нечетных чисел нет или их количество превышает один');
end.

Программа:

var a,b,c: integer;

k: integer;

begin

readln(a,b,c);

k:=0;

if (a mod 2<>0) then k:=k+1;

if (b mod 2<>0) then k:=k+1;

if (c mod 2<>0) then k:=k+1;

if k=1 then write('только одно число нечетное')

else write('нечетных чисел нет или их количество превышает один');

end.

Пример:

20 17 48

только одно число нечетное