Составить программу, которая определяет четное число или нет?
Программа генерирует случайное число с помощью Rаndom и выводит само число и фразу "чётное" или "нечётное".

var s: integer;begins := random(1000)+2;writeln(s);if (s mod 2 = 0) then writeln('Четное.')elsewriteln('Нечетное')end.