Question

Дано число А. Проверить принадлежит ли данное число интервалу(-5;5).

Answer 1

var a:real;
begin
readln(a);
if (a<5) and (a>-5) then writeln('принадлежит') else writeln('не принадлежит');
end.