Написать программу, которая печатает True или False в зависимости от того, выполняются или нет заданные условия:

- квадрат заданного трехзначного числа равен кубу суммы цифр этого числа;

-точка с координатами (x, y) принадлежит части плоскости, лежащей между прямыми x=m, x=n (m

var b: 100 ... 999;

s: word;

x, y, m, n: integer;

begin

writeln ('Введите трехзначное число') ;

readln (b) ;

s: = (b mod 10) + ((b mod 100) div 10) + (b div 100) ; / / сумма цифр трехзначного числа

if sqr (b) = sqr (s) * s then writeln ('True')

else writeln ('False') ;

writeln ('Введите координаты х и у') ;

readln (x, y) ;

writeln ('Введите m и n') ;

readln (m, n) ;

if (x>m) and (x
else writeln ('False') ;

end.