3. Дана программа на Паскале для определения чётности числа:
var x: integer;
begin
write ('Введите x: ');
readln (x);
if x mod 2 = 0 then
writeln ('Это четное число')
else writeln ('Это нечетное число');
end.
Нарисовать блок- схему алгоритма по данной программе.