Написать программу, которая печатает 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.