Ответ:Прикола с двумя числами не понял, если по итогу второе число не применяют!

var a,b,c:int64;

begin

readln(a);

b:=a mod 2;

if b = 0 then c:=a*2

else c:=a*4;

writeln('Итоговое число: ',c);

end.