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

Program zadacha; var a:integer; begin writeln('vvedite chislo'); readln(a); if a mod 2 = 0 then writeln (0) else writeln(a); end.