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

gotoxy (21,10); write(#185);

end;

{–}

procedure menin (x1, y1, x2, y2, a:byte);

begin

window (x1, y1, x2, y2);

textbackground(a);

clrscr;

textcolor(1);

write (' Zapolnit');

window (x1, y1+3, x2, y2+3);

clrscr;

write (' Redaktirovat');

window (x1, y1+6, x2, y2+6);

clrscr;

write (' Udalit');

window (x1, y1+9, x2, y2+9);

clrscr;

write (' Vixod');

end;

{–}

procedure punkt (x, y, z, c, q:byte; s:string);

begin

window (x, y, z, c);

textbackground(q);

clrscr;

textcolor(10);

write(s);

end;