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

for i:=1 to 10 do

begin

gotoxy(1,4+y);

write(#195);

y:=y+2;

end;

gotoxy(1,24);

write(#192);

for i:=1 to 78 do

begin

gotoxy(1+i,24);

write(#196);

end;

for i:=1 to 23 do

begin

gotoxy(80,1+i);

write(#179);

end;

gotoxy(80,24);

write(#217);

gotoxy(80,2);

write(#180);

y:=2;

for i:=1 to 10 do

begin

gotoxy(80,2+y);

write(#180);

y:=y+2;

end;