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:=(x>10) and (x
write('Число ',x,' больше 10 и меньше 100 -',a);
end.
Как то так)