Напишите программу, которая принимает число, а на выходе возвращает ноль, если число четное и само число, если оно нечетное. Pascal

Program chislo;

Var

a:integer;

Begin

writeln ('Введите число'); {Вывод на экран фразы 'Введите число'}

readln (a); {Считывание с клавиатуры числа а}

if a mod 2=0 then writeln (0) {Если остаток от деления числа на 2 равен нулю, то на экран выводиться число 0}

else {Иначе, т. е. если условие о делении не выполняется}

writeln (a); {Вывод на экран числа а}

end.

{} - В языке программирования Pascal - 'комментарий'. Текст, записанный внутри фигурных скобок не считывается компьютером.