procedure f(x: int64);
begin
write('Число ', x);
if odd(x) then write(' нечётное и ')
else write(' чётное и ');
if (x < 0) or (x > 10) then write('не ');
writeln('принадлежит отрезку [1;10]')
end;
begin
textbackground(white);
textcolor(black);
clrscr();
write('a b c: ');
readln(a, b, c);
f(a); f(b); f(c)
end.
Пожалуйста имейте ввиду, что этот пользователь забанен
Четность числа можно проверить или получив остаток от деления числа на два (if N mod 2 = 0), или использовав функцию Odd(N), возвращающую ИСТИНА для нечетного числа (if not Odd(N))Принадлежность интервалу определяется условным оператором (if (N >=0) and (N <=10) then ...На печать результат двух проверок выводится процедурой Write();Ввести три числа можно или в цикле (for i:=1 to 3 do ...), или использовать три переменные. Первое, предпочтительнее.