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

спасибо большое тебе)

спасибо большое тебе)

Пожалуйста

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