Написать программу на языке паскаль точка м(х, у) принадлежит прямоугольнику, ограниченному прямыми х=2, у=1 и координатными осями.

var
  x, y: real;
  isin: string;
begin
  readln(x, y);
  if ((x < 0) or (x > 2) or (y < 0) or (y > 2)) then
    isin := 'не ';
  writeln('M(', x, '; ', y, ') ', isin, 'принадлежит прямоугольнику');
end.