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