uses
GraphABC;
var
x, y: integer;
s: array of string;
b: GraphABC.Point;
begin
s := System.IO.File.ReadAllLines(in.txt);
foreach a: string in s do
begin
X := integer.Parse(a.Replace((, ).Replace(), ).Replace( , ).Split(;)[0]);
Y := integer.Parse(a.Replace((, ).Replace(), ).Replace( , ).Split(;)[1]);
if not (b.IsEmpty) then
GraphABC.LineTo(X, Y)
else
begin
GraphABC.MoveTo(X, Y);
b := new Point(x, y);
end;
DrawCircle(x, y, 10);
end;
LineTo(b.X, b.Y);
end.
==================================
Код, конечно, вырвиглазный, зато работает и прочитать его относительно легко:)
==================================
Содержимое файла in.txt (для теста)
(50; 50)
(90; 50)
(90; 90)
(50; 90)
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.