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

end;

write('И');

for i:=1 to (x2-x1) – 1 do

begin

write('Н');

end;

write('ј');

end;

{–}

procedure newreadkey (var a {‘зЁвлў Ґ¬л© Є®¤ бЁ¬ў®»}:char;

var b {ђ §иЁаҐ­л© Є®¤ Є» ўЁиЁ}:byte);

begin

b:=0;

a:=readkey;

if a=#0 then

b:=ord(readkey);

end;

{–}

procedure ris;

begin

ramka (10,3,30,7,7);

ramka (10,6,30,10,7);

ramka (10,9,30,13,7);

ramka (10,12,30,16,7);

window (10,3,30,16);

gotoxy (1,4); write(#204);

gotoxy (1,7); write(#204);

gotoxy (1,10); write(#204);

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