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

3: begin

gotoxy (3,8);

write (#16);

gotoxy (23,8);

write (#17);

end;

4: begin

gotoxy (3,11);

write (#16);

gotoxy (23,11);

write (#17);

end;

5: begin

gotoxy (3,14);

write (#16);

gotoxy (23,14);

write (#17);

end;

end;

end;

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

procedure ram;

var i: integer;

begin

gotoxy (5,5);

write (#217);

gotoxy (1,5);

write (#218);

gotoxy (5,1);