Курсовая работа: Автоматизована реєстрація і облік автомобілей

write(#196);

end;

for i:=1 to 80 do

begin

gotoxy(0+i,4);

write(#196);

end;

gotoxy(1,1);

write(#218);

gotoxy(80,1);

write(#191);

for i:=1 to 78 do

begin

gotoxy(1+i,1);

write(#196);

end;

gotoxy(35,1);

textcolor(3);

writeln(st);

textcolor(7);

for i:=1 to 23 do

begin

gotoxy(1,1+i);

write(#179);

end;

gotoxy(1,2);

write(#195);

gotoxy(1,4);

write(#195);