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

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 fon;

var i,n: byte;

begin

n: =15;

window (10,5,12,n+5);

for i: =1 to n do

writeln ('є');

window (7,5,9,n+5);

for i: =1 to n do

writeln ('є');

window (31,5,33,n+5);

for i: =1 to n do

writeln ('є');

window (28,5,30,n+5);

for i: =1 to n do