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

for i: =1 to 3 do

begin

gotoxy (1+i,5);

write (#196);

end;

gotoxy (35,1);

write (#191);

for i: =1 to 29 do

begin

gotoxy (5+i,1);

write (#196);

end;

gotoxy (35,5);

write (#192);

gotoxy (39,5);

write (#191);

for i: =1 to 3 do

begin

gotoxy (35+i,5);

write (#196);

end;

gotoxy (1,21);

write (#192);

gotoxy (5,21);

write (#191);

gotoxy (5,25);

write (#192);

gotoxy (35,25);

write (#217);