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

for j:=1 to 10 do

begin

y:=y+2;

for i:=1 to 78 do

begin

gotoxy(1+i,y);

write(#196);

end;

end;

x:=20;

for i:=1 to 3 do

begin

gotoxy(0+x,2);

write(#194);

x:=x+20;

end;

x:=20;

for i:=1 to 3 do

begin

gotoxy(0+x,24);

write(#193);

x:=x+20;

end;

x:=0;

for j:=1 to 3 do

begin

x:=x+20;

for i:=1 to 21 do

begin