Даны два прямоугольника. первый прямоугольник задан координатами левой нижней вершины (0; 0) и правой верхней – (w; h) (w > 0 и h > 0) в прямоугольной системе координат, а стороны этого прямоугольника параллельны осям координат. второй прямоугольник полностью располагается внутри первого и имеет ширину rw и высоту rh, а его стороны также параллельны осям координат. определите координаты верхней левой и нижней правой вершин второго прямоугольника, если точки пересечения диагоналей обоих прямоугольников . объясните свой ответ

// pascalabc.net 3.4.2, сборка 1785 от 06.09.2018

begin

  var (w, h) : = readinteger2('w,h-> '); // точка (w; h)

  var (ox, oy) : = (w / 2, h / 2); // находим координаты цента (0; 0) и (w; h)

  (w, h) : = readinteger2('rw,rh-> '); // ввод rw и rh

  println($'координаты левой верхней вершины ({ox+h/2}; {oy-w/2})'); // - половина высоты прибавляется и половина ширины вычитается

  println($'координаты правой нижней вершины ({ox-h/2}; {oy+w/2})'); // - половина ширины прибавляется и половина высоты вычитается

end.

если моя не подводит, то должно быть верно.

1.123456789-номер телефона

2.мама помыла посуду-ткстовая информация

3.какой нибудь рисунок

4.музыка

5.кино 

program ml; uses crt; var x,i: integer;       w,l: real; beginclrscr; readln(x); l: =x; for i: =1 to x do                                                beginw: =w+1; l: =x/w; if frac(l) = 0 then writeln(l: 2: 0);                                                                                               end; readkey; end.