Написать код решения в паскале. кощей бессмертный зарыл клад на глубину 1 м. этого ему показалось не достаточно, он отрыл клад, углубил колодец до 2 м и снова зарыл. этого ему опять показалось мало, он отрыл клад, углубил колодец до 3 м и зарыл. затем он проделал тоже, углубив колодец до 4 м, потом до 5 м, 6 м и т.д. известно, что колодец глубиной n метров кощей вырывает за n2 дней. известно также, что на 1001-й день кощей умер от непосильной работы. на какой глубине остался клад? (временем, необходимым для закапывания клада, пренебречь). дана формула: 1^2+2^2+3^2++n^2 < =1001

Var
{вводим точки, записываем в переменную max расстояние до первой точки, а в переменную max2 - номер точки. Если расстояние до следующей точки меньше, чем до первой точки, то сохраняем новые значения в max и max2}
x1,y1,x2,y2,x3,y3,max,max2:real;
    begin
         readln(x1,y1,x2,y2,x3,y3);       
           max:=sqrt(sqr(x1)+sqr(y1));       
           max2:=1;     
               if sqrt(sqr(x2)+sqr(y2))<=max then     
                  begin       
                      max:=sqrt(sqr(x2)+sqr(y2));       
                      max2:=2;     
                  end;     
              if sqrt(sqr(x3)+sqr(y3))<=max then     
                   begin       
                     max:=sqrt(sqr(x3)+sqr(y3));       
                     max2:=3;     
                   end;     
writeln(max,' ',max2);     
end.

1 Microsoft Office Word

2 Microsoft Office Excel

3 Microsoft Office Outlook

4 Microsoft Office PowerPoint

5 Microsoft Office Access

6 Microsoft Office InfoPath

7 Microsoft Office Communicator

8 Microsoft Office Publisher

9 Microsoft Office Visio

10 Microsoft Office Project

11 Microsoft Query

12 Microsoft Office OneNote

13 Microsoft Office Groove 2007

14 Microsoft Office SharePoint Designer

15 Microsoft Office Picture Manager

16 Microsoft Office Document Image Writer

17 Microsoft Office Diagnostics