12. Составить алгоритм и написать решение задачи на Паскале: Целое число вводится пользователем с клавиатуры. Проверить его на четность

program up1;var q,w:integer;beginwriteln('введите число');read(q);w:=q mod 2;if w=0 then writeln('число чётное') else writeln('число не чётное'); end.