ulvis.paste.net

Paste Search Dynamic
Recent pastes
Task2
  1. uses
  2.   GraphABC;
  3.  
  4. var
  5.   f: text;
  6.   x, y, x0, y0, xEND, yEND: integer;
  7.  
  8. begin
  9.   assign(f, 'input.txt');
  10.   reset(f);
  11.   read(f, x0);
  12.   read(f, y0);
  13.   close(f);
  14.   assign(f, 'input.txt');
  15.   reset(f);
  16.   read(f, x);
  17.   read(f, y);
  18.   while not eof(f) do
  19.   begin
  20.     read(f, xEND);
  21.     read(f, yEND);
  22.     Line(x, y, xEND, yEND);
  23.     x := xEND;
  24.     y := yEND;
  25.   end;
  26.   Line(xEND, yEND, x0, y0);
  27.   close(f);
  28.   assign(f, 'input.txt');
  29.   reset(f);
  30.   while not eof(f) do
  31.   begin
  32.     read(f, x);
  33.     read(f, y);
  34.     Line(x - 10, y, x + 10, y);
  35.     Line(x, y - 10, x, y + 10);
  36.     DrawCircle(x, y, 10);
  37.   end;
  38.   close(f);
  39. end.
Parsed in 0.006 seconds