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

begin

gotoxy (5+i,25);

write (#196);

end;

gotoxy (35,21);

write (#218);

gotoxy (39,21);

write (#217);

for i: =1 to 3 do

begin

gotoxy (1+i,21);

write (#196);

end;

for i: =1 to 3 do

begin

gotoxy (35+i,21);

write (#196);

end;

for i: =1 to 3 do

begin

gotoxy (5,1+i);

write (#179);

end;

for i: =1 to 3 do

begin

gotoxy (35,1+i);

write (#179);

end;

for i: =1 to 3 do