Программа запрашивает целое число и определяет четное или нечетно. составить блок схему и программу.

Var a:integer;
begin
   readln (a);
   if (a mod 2 = 0) then writeln ('Четно') else writeln ('Нечетно');
end.