Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program Project1;
- {$APPTYPE CONSOLE}
- uses
- SysUtils;
- var
- x,y,x1,x2,y2,s:integer;
- r,rr:real;
- begin
- assign(input,'input.txt');
- assign(output,'output.txt');
- reset(input);
- rewrite(output);
- readln(input, x,y,x1,x2,y2,s);
- r:=x-x1+sqrt(sqr(x2-x)+sqr(y2));
- rr:=x1+y+sqrt(sqr(x2)+sqr(y2-y));
- if (s>=r)or(s>=rr) then
- writeln(output,'YES') else
- writeln(output,'NO');
- // writeln(output,a+b);
- close(output);
- close(input);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement