Составить схему к программе
Program имя ;
Uses crt;
Var x : Integer ;
Begin
Write Ln (‘ введите число’);
Read (x)
If mod 2=0 them write (‘четное’)
else write (‘нечетное’)
End.
Помогите пожалуйста !!!