Проанализировать введенное с клавиатуры число на четность - Pascal ABC

Формулировка задачи:

Нарисуйте блок-схему алгоритма и напишите программу, которая анализирует введенное с клавиатуры число на четность и сообщает о результате. Используйте операцию нахождения остатка от деления числа на 2. Решение

program g;
uses crt;
var  x:integer;
begin
writeln('Введите числоГ®');
readln(x);
if x>0 then
writeln('Четный:',3 mod 2)
else
writeln('Нечетный:',3 mod 2);
readln;
end.

Правильно или нет, а как картинку сюда вставить блок-схемы не знаю. С уважением карлсонф.

Решение задачи: «Проанализировать введенное с клавиатуры число на четность»

Листинг программы

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

Объяснение кода листинга программы

Создается переменная x типа integer.
Выводится сообщение x = и значение переменной x, набранное пользователем.
С помощью оператора mod проверяется, является ли значение x четным числом.
Если x mod 2 = 0, то выводится сообщение Четное.
Если x mod 2 ≠ 0, то выводится сообщение Нечетное.
Выводится символ новой строки с помощью функции readln.