Контрольная работа: Автоматизований облік надходження, зберігання і збуту продукції на товарній базі

gotoxy (1, i);

write('і');

gotoxy (x2-x1+1, i);

write('і');

end;

write('А');

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

begin

write('Д');

end;

write('Щ');

end;

{–}

procedure save (x1, y1, x2, y2, a:byte; s1:string);

var qwerty:rec;

f1: file of rec;

xn, yn, i:byte;

begin

Window (x1, y1, x2, y2);

textbackground(a);

clrscr;

xn:=3; yn:=2;

rama (1,1,39,15,0,14);

rama (1,1,15,15,0,14);

window (2,4,15,23);

writeln (' Sahar');

writeln (' Muka');

writeln (' Sol');

writeln (' Gre4ka');