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

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