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

Question

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

Comments

Да

---

а что ReadLn последнее?

---

Ясно

Answer 1

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

---