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

Question

Написать программу, которая печатает True или False в зависимости от того, выполняются или нет заданные условия:
- квадрат заданного трехзначного числа равен кубу суммы цифр этого числа;

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

Answer 1

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.