Пж !!! Напишите !! Срочно
var n: integer;
begin
read(n);
if (n mod 2=0) then write (четное);
else write (нечетное);
end