Uses
GraphABC;
var
x, y: integer;
s: string;
b: boolean;
begin
Graphabc.Coordinate.Origin := GraphABC.Window.Center();
Coordinate.SetMathematic();
Coordinate.SetScale(10, 10);
s := (-5; 4), (-7; 4), (-9; 6), (-11; 6), (-12; 5), (-14; 5), (-12; 4), (-14; 3), (-12; 3), (-11; 2), (-10; 2), (-9; 1), (-9; 0), (-8; -2), (0; -3), (3; -2), (19; -2), (4; 0), (19; 4), (4; 2), (2; 3), (6; 9), (10; 11), (3; 11), (1; 10), (-5; 4);
foreach a: string in s.Replace(), (, ),().Split(,) do
begin
X := integer.Parse(a.Replace((, ).Replace(), ).Replace( , ).Split(;)[0]);
Y := integer.Parse(a.Replace((, ).Replace(), ).Replace( , ).Split(;)[1]);
if (b) then
GraphABC.LineTo(X, Y)
else
begin
GraphABC.MoveTo(X, Y);
b := true;
end;
end;
end.
Сея программа хоть что нарисует, только координаты смени (тут ласточка, а другие в инете найти можно)
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.