Парни помогите решить задачу, Необходимо взять из txt фаила данные , чтобы на экране появилась стрел Опции

[skilla.net]

сабж , парни , помогите , у нас начался Паскаль , а я полный ноль!!!! Необходимо взять координаты из txt фаила , чтобы во время запуска программы появилась стрелочка , у которой треугольник будет равнобедренным!!!

[LexaKazanskij]

Не надо мучаться, как делать не уточнено

program fd;
uses graph;
var
w1,w2,w3,w4,w5,w6,w7,w8,w9,w10,w11,w12:integer;
a,b:integer;
rsd:text;
begin
a:=detect;
initgraph(a,b,'');
assign(rsd,'texter.txt');
reset(rsd);
read(rsd,w1,w2);
read(rsd,w3,w4);
read(rsd,w5,w6);
read(rsd,w7,w8);
read(rsd,w9,w10);
read(rsd,w11,w12);
line(w2,w1,w4,w3);
line(w4,w3,w8,w7);
line(w8,w7,w5,w6);
line(w5,w6,w9,w10);
line(w9,w10,w11,w12);
close(rsd);
readln;
closegraph;
end.

[skilla.net]

Не надо мучаться, как делать не уточнено

program fd;
uses graph;
var
w1,w2,w3,w4,w5,w6,w7,w8,w9,w10,w11,w12:integer;
a,b:integer;
rsd:text;
begin
a:=detect;
initgraph(a,b,'');
assign(rsd,'texter.txt');
reset(rsd);
read(rsd,w1,w2);
read(rsd,w3,w4);
read(rsd,w5,w6);
read(rsd,w7,w8);
read(rsd,w9,w10);
read(rsd,w11,w12);
line(w2,w1,w4,w3);
line(w4,w3,w8,w7);
line(w8,w7,w5,w6);
line(w5,w6,w9,w10);
line(w9,w10,w11,w12);
close(rsd);
readln;
closegraph;
end.

а ведь точно , можно было и так сделать ))) каждую прочитать и нарисовать ))) спс за помощь!!!!!!!!

[what are the side effects of gab]

Viagra W Overnight Shipping