Составте программу на языке паскаль, выводящую на экран сообщение следующего вида: " число w является четным ( нечетным) " о некотором целом не равном числе (w),введенным с клавиатуры. должна быть решена условным оператором. )

Var
  w: integer;
begin
  write('Введите число: ');
  read(w);
  if w mod 2 = 0 then writeln('Число ', w, ' является четным')
                 else writeln('Число ', w, ' не является четным')
end.

Пример работы программы:
Введите число: 12
Число 12 является четным