Задача на паскале срочно помогите пж

Текст Паскаль-программы короче текста вопроса: program Numbers;var n: integer;begin write('Число: '); readln(n); if n mod 2 = 0 then writeln(n * 2) else writeln('Число нечётное')end.