Пользователь вводит 2 числа,если 1 число четное ,то его нужно умножить на 2 ,если нечетное,то умножить на 4.Вывести на экран.Программа Паскаль.

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

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.