к примеру даны числа 2 3 4

четные уменьшим на два а нечетное оставим, получится:

0 3 2

var a,b,c:integer;

begin

readln(a,b,c);

if a mod 2=0 then a:=a-2 else writeln(a);

if b mod 2=0 then b:=b-2 else writeln(b);

if c mod 2=0 then c:=c-2 else writeln(c);

end.