Как составить блок-схему и программу, проверяющую, верно ли утверждение, что введенное вами целое число является четным.

Var x,y: integer;
  begin  write('Введите число: ');
  readln(x);
  y:=x mod 2;
  if y=0 then   writeln('Четное')
  else  writeln('Нечетное');
end.