Сделайте пожалуйста. Поставлю лайк и лучший ответ. Прошу вас Инфа!!!!!

1) Определяет делиться ли число на 10

var x:integer;

a: boolean;

begin

write('Введите х=');

read(x);

a:=x mod 10=0;

write('Число ',x,' делиться на 10 -',a);

end.

2) Определяет находиться ли число меж 10 и 100 (10 и 100 не включены в диапазон)

var x:integer;

a: boolean;

begin

write('Введите х=');

read(x);

a:=(xgt;10) and (xlt;100);

write('Число ',x,' больше 10 и меньше 100 -',a);

end.

Как то так)