Ввести двухзначное число и вывести на экран сообщение четное оно либо

Ввести двухзначное число и вывести на экран извещенье четное оно либо нет?
x mod 2 =0- четное
.......
Напишите пожалуйста!!!!!!

Задать свой вопрос
1 ответ
Var x:integer;
begin
  Write('x='); Readln(x);
  If x mod 2 = 0 then Writeln('четное')
else Writeln('не 
четное ');
readln;
end.
Novinickaja Jana
Что озгачает else writeln
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт