Question

Напишите программу на языке Паскаль:Выяснить принадлежит ли точкаX отрезку от 1 до 10?
Буду очень благодарна)

Answer 1

var a: integer;
begin
Readln(a);
if (a<=10) and (a>=1) then
Writeln('принадлежит')
else Writeln('не принадлежит')
end.