Составте программу вводящую числа если число чётное разделите на 2 если не чётное умножте на 2

Var a:integer; Begin Write('Введите целое число: ');ReadLn(a); if a mod 2 = 0 then a:=a div 2 else a:=a*2; Write(a) End.