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

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