1. За до створити базу даних «Перевізник» Встановити зв'язки між таблицями (не менше двох таблиць). Сформувати звіт, який міститиме інформацію про транспортні засоби.

Створити запит для знаходження в базі даних інформація про маршрути за кордон (відстань перевищує 500 км).

Может быть, так:
uses graphABC;
Begin
setfontcolor(clRed);
writeln('Белеет парус одинокой');
setfontcolor(clBlue);
writeln('В тумане моря голубом!..');
setfontcolor(clDarkOrchid);
writeln('Что ищет он в стране далекой?');
setfontcolor(clDeepSkyBlue);
writeln('Что кинул он в краю родном?..');
setfontcolor(clDeepPink);
writeln('Играют волны - ветер свищет,');
setfontcolor(clMagenta);
writeln('И мачта гнётся и скрыпит...');
setfontcolor(clDarkGreen);
writeln('Увы! он счастия не ищет');
setfontcolor(clLime);
writeln('И не от счастия бежит!');
setfontcolor(clBrown);
writeln('Под ним струя светлей лазури,');
setfontcolor(clIndigo);
writeln('Над ним луч солнца золотой...')
End.

Program raketa; uses graph;  var gd,gm:integer; begin  detectgraph (gd,gm);  initgraph (gd,gm,'C:\tp7 ');  line (300,60,240,120);  line (240,120,240,360);  line (360,120,360,360);  line (240,360,360,360);  line (300,60,360,120);  line (240,210,210,240);  line (210,240,240,240);  line (360,210,390,240);  line (390,240,360,240);  circle (300,150,15);  circle (300,210,15);  circle (300,270,15);  Bar (270,300,240,360);  line (240,360,180,450);  line (180,450,420,450);  line (420,450,360,360);  line (330,450,330,370);  line (300,450,300,365);  line (270,450,270,370);  line (240,330,180,330);  line (180,330,90,450);  line (172,330,80,445);  line (300,60,300,30); readln end.