Реферат Структури даних і алгоритми

---------- ';

procedure graphout (const city: cities);

var

grDriver: Integer;

grMode: Integer;

p: citycode;

begin

grDriver: = Detect;

InitGraph (grDriver, grMode,'');

setcolor (12);

outtextxy (200,0, 'Карта транспортної схеми');

p: = 1;

while (P
<