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

gotoxy (5,21+i);

write (#179);

end;

for i: =1 to 3 do

begin

gotoxy (35,21+i);

write (#179);

end;

for i: =1 to 15 do

begin

gotoxy (1,5+i);

write (#179);

end;

for i: =1 to 15 do

begin

gotoxy (39,5+i);

write (#179);

end;

end;

{... ... ... ... ... ... ... ... ... }

procedure vvod;

var i,n: integer;

begin

window (1,1,40,25);

textbackground (0);

clrscr;

textcolor (3);

ram;

gotoxy (18,2);