Помогите с информатикой!!!
с клавиатуры вводится координата точки х, программа выводит ответ принадлежит ли точка отрезку от 20 до 40
Var x:integer;
begin
writeln(Введите координату точки X);
read(x);
if (x>20) and (x<40) then writeln(Да принадлежит) else writeln(Нет, не принадлежит);
end.
Оцени ответ
