Для общей работы
⇄⇄⇄⇄⇄⇄⇄⇄⇄ и обмена информацией
1.<span> Щелкните правой кнопкой мыши на свободном месте Рабочего стола и выберите в контекстном меню пункты: </span><span>Создать > Папку </span><span>— на экране появится значок папки</span>
354=01100010
872=010101101000
648=010001000
931=110100011
{т.е. квадрат лежит на оси x начиная от 0 до 5, т.к. сторона квадрата =5, аналогично и с осью y, отсюда условия x>=0 x<=5 y>=0 y<=5}
var
x,y:real;
begin
readln(x,y);
if (x>0)and(x<5)and(y>0)and(y<5)then
writeln('попадает')
else
writeln('не попадает');
end.
Вокруг земли нечего не вращается