Написать программу в паскале: определить, четное число или нечетное, если четное - разделить на два и вывести результат на экран

var a : integer;beginwriteln('Введите число');read(a);if (a mod 2 = 0) then a:= a div 2 else a:=a;writeln(a);end.