Это информатика! Тема: решение задач с условием.

Даны 3 числа. Уменьшить на 2 те из них, которые четные. Остальные оставить без изменения.

к примеру даны числа 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.