{+--------------------------------------------------------------------------+}
{|        The Textbook in Data Structure, Algorithms and Programming        |}
{|              http://w...content-available-to-author-only...c.jp/~hoangle/DSAPTextbook/               |}
{|                                                                          |}
{|    Program: Finding_the_Minimum_Spanning_Tree_using_Kruskal_Algorithm    |}
{|                         Written by Le Minh Hoang                         |}
{|                      Email: dsaptextbook@gmail.com                       |}
{+--------------------------------------------------------------------------+}
 
{$MODE DELPHI} (*This program uses 32-bit Integer [-2^31 .. 2^31 - 1]*)
program code1;
(*
IMPORTANT NOTES FOR COMPATIBILITY:
==================================
- This program is especially written for running under Windows 32 bit and
  Free Pascal IDE. Therefore, 32-bit Integer type is used to result in the
  best performance with the {$MODE DELPHI} compiler directive of FPK for
  Windows.
- If you use Borland Turbo Pascal 7 for DOS, you may have to reduce the
  data structure to deal with the limited memory. In addition, BP7 does not
  support 32-bit Integer type, it causes some Integer variables would have
  to be converted into LongInt variables.
- If you prefer to compile under Delphi, you can simply convert the source
  code as follows:
  + Replace the type "Text" with the type "TextFile"
  + Change all procedure calls "Assign(., .)" to "AssignFile(., .)" and
    "Close(.)" to "CloseFile(.)"
  + Remove the {$MODE DELPHI} and add the {$APPTYPE CONSOLE} compiler 
    directive to the beginning of this program
-----------------------------------------------------------------
Please report any errors to: dsaptextbook@gmail.com, MANY THANKS!
-----------------------------------------------------------------
*)
var x,y:real;
begin
  writeln('x=');
  read(x);
  writeln('y=');
  read(y);
  if (x<=0) and (y>=0) and (y<x+5) then
     writeln('указанные координаты находятся в диапазонах плоскости')
  else
      writeln('указанные координаты находятся вне диапазонах плоскости');
end.   
 

eystLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLSt9Cnt8ICAgICAgICBUaGUgVGV4dGJvb2sgaW4gRGF0YSBTdHJ1Y3R1cmUsIEFsZ29yaXRobXMgYW5kIFByb2dyYW1taW5nICAgICAgICB8fQp7fCAgICAgICAgICAgICAgaHR0cDovL3cuLi5jb250ZW50LWF2YWlsYWJsZS10by1hdXRob3Itb25seS4uLmMuanAvfmhvYW5nbGUvRFNBUFRleHRib29rLyAgICAgICAgICAgICAgIHx9Cnt8ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICB8fQp7fCAgICBQcm9ncmFtOiBGaW5kaW5nX3RoZV9NaW5pbXVtX1NwYW5uaW5nX1RyZWVfdXNpbmdfS3J1c2thbF9BbGdvcml0aG0gICAgfH0Ke3wgICAgICAgICAgICAgICAgICAgICAgICAgV3JpdHRlbiBieSBMZSBNaW5oIEhvYW5nICAgICAgICAgICAgICAgICAgICAgICAgIHx9Cnt8ICAgICAgICAgICAgICAgICAgICAgIEVtYWlsOiBkc2FwdGV4dGJvb2tAZ21haWwuY29tICAgICAgICAgICAgICAgICAgICAgICB8fQp7Ky0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tK30KCnskTU9ERSBERUxQSEl9ICgqVGhpcyBwcm9ncmFtIHVzZXMgMzItYml0IEludGVnZXIgWy0yXjMxIC4uIDJeMzEgLSAxXSopCnByb2dyYW0gY29kZTE7CigqCklNUE9SVEFOVCBOT1RFUyBGT1IgQ09NUEFUSUJJTElUWToKPT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PQotIFRoaXMgcHJvZ3JhbSBpcyBlc3BlY2lhbGx5IHdyaXR0ZW4gZm9yIHJ1bm5pbmcgdW5kZXIgV2luZG93cyAzMiBiaXQgYW5kCiAgRnJlZSBQYXNjYWwgSURFLiBUaGVyZWZvcmUsIDMyLWJpdCBJbnRlZ2VyIHR5cGUgaXMgdXNlZCB0byByZXN1bHQgaW4gdGhlCiAgYmVzdCBwZXJmb3JtYW5jZSB3aXRoIHRoZSB7JE1PREUgREVMUEhJfSBjb21waWxlciBkaXJlY3RpdmUgb2YgRlBLIGZvcgogIFdpbmRvd3MuCi0gSWYgeW91IHVzZSBCb3JsYW5kIFR1cmJvIFBhc2NhbCA3IGZvciBET1MsIHlvdSBtYXkgaGF2ZSB0byByZWR1Y2UgdGhlCiAgZGF0YSBzdHJ1Y3R1cmUgdG8gZGVhbCB3aXRoIHRoZSBsaW1pdGVkIG1lbW9yeS4gSW4gYWRkaXRpb24sIEJQNyBkb2VzIG5vdAogIHN1cHBvcnQgMzItYml0IEludGVnZXIgdHlwZSwgaXQgY2F1c2VzIHNvbWUgSW50ZWdlciB2YXJpYWJsZXMgd291bGQgaGF2ZQogIHRvIGJlIGNvbnZlcnRlZCBpbnRvIExvbmdJbnQgdmFyaWFibGVzLgotIElmIHlvdSBwcmVmZXIgdG8gY29tcGlsZSB1bmRlciBEZWxwaGksIHlvdSBjYW4gc2ltcGx5IGNvbnZlcnQgdGhlIHNvdXJjZQogIGNvZGUgYXMgZm9sbG93czoKICArIFJlcGxhY2UgdGhlIHR5cGUgIlRleHQiIHdpdGggdGhlIHR5cGUgIlRleHRGaWxlIgogICsgQ2hhbmdlIGFsbCBwcm9jZWR1cmUgY2FsbHMgIkFzc2lnbiguLCAuKSIgdG8gIkFzc2lnbkZpbGUoLiwgLikiIGFuZAogICAgIkNsb3NlKC4pIiB0byAiQ2xvc2VGaWxlKC4pIgogICsgUmVtb3ZlIHRoZSB7JE1PREUgREVMUEhJfSBhbmQgYWRkIHRoZSB7JEFQUFRZUEUgQ09OU09MRX0gY29tcGlsZXIgCiAgICBkaXJlY3RpdmUgdG8gdGhlIGJlZ2lubmluZyBvZiB0aGlzIHByb2dyYW0KLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0KUGxlYXNlIHJlcG9ydCBhbnkgZXJyb3JzIHRvOiBkc2FwdGV4dGJvb2tAZ21haWwuY29tLCBNQU5ZIFRIQU5LUyEKLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0KKikKdmFyIHgseTpyZWFsOwpiZWdpbgogIHdyaXRlbG4oJ3g9Jyk7CiAgcmVhZCh4KTsKICB3cml0ZWxuKCd5PScpOwogIHJlYWQoeSk7CiAgaWYgKHg8PTApIGFuZCAoeT49MCkgYW5kICh5PHgrNSkgdGhlbgogICAgIHdyaXRlbG4oJ9GD0LrQsNC30LDQvdC90YvQtSDQutC+0L7RgNC00LjQvdCw0YLRiyDQvdCw0YXQvtC00Y/RgtGB0Y8g0LIg0LTQuNCw0L/QsNC30L7QvdCw0YUg0L/Qu9C+0YHQutC+0YHRgtC4JykKICBlbHNlCiAgICAgIHdyaXRlbG4oJ9GD0LrQsNC30LDQvdC90YvQtSDQutC+0L7RgNC00LjQvdCw0YLRiyDQvdCw0YXQvtC00Y/RgtGB0Y8g0LLQvdC1INC00LjQsNC/0LDQt9C+0L3QsNGFINC/0LvQvtGB0LrQvtGB0YLQuCcpOwplbmQuICAgCg==

NyAyMQoxIDIgNTQ3MTUyCjEgMyA1MDkxNTcKMSA0IDUzOTI4MgoxIDUgNTQxNjQ1ICAgICAgICAgCjEgNiA0NTg0MzMKMSA3IDM4NTE3M+KAqAoyIDMgMTMxNTI4CjIgNCA5MjczNQoyIDUgMTUwNTExCjIgNiA5NDQ0MAoyIDcgMTk0NTQyCjMgNCAyMTY2MDAKMyA1IDI3MjQwMQozIDYgMTU3MTc2CjMgNyAxMjQwNzcKNCA1IDU3Nzg1CjQgNiA5NzMyMwo0IDcgMjQyMjMyCjUgNiAxMzY2NjMKNSA3IDI4Mzg2Mgo2IDcgMTQ3NDI2

7 21
1 2 547152
1 3 509157
1 4 539282
1 5 541645         
1 6 458433
1 7 385173

2 3 131528
2 4 92735
2 5 150511
2 6 94440
2 7 194542
3 4 216600
3 5 272401
3 6 157176
3 7 124077
4 5 57785
4 6 97323
4 7 242232
5 6 136663
5 7 283862
6 7 147426