Дано число а заменить это число удвоенным произведением если оно нечетное. Помогите пж скок сижу не могу сделать
Program Xz;
var a: integer;
begin;
writeln ('Введите число');
readln (a);
if a mod 2=0
then
writeln ('Число четное')
else
a:=a*2;
writeln ('Удвоенное нечетное число');
readln;
end.
вот здесь где-то ошибка