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

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