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

writeln (' Kurici');

writeln (' Droji');

writeln (' Maslo');

writeln (' Sir');

writeln (' Hleb');

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

gotoxy (17,2);

write (' 2006 2007 2008');

gotoxy (1,3); write(#195);

gotoxy (39,3); write(#180);

gotoxy (15,3); write(#197);

gotoxy (15,1); write(#194);

window (1,1,40,25);

gotoxy (15,14); write(#193);

gotoxy (2,2);

write(s1);

window (16,3,39,24);

for i:=1 to 10 do

begin

gotoxy (xn, yn);

readln (qwerty.import [1, i]);

gotoxy (xn+8, yn);

readln (qwerty.import [2, i]);

gotoxy (xn+16, yn);

readln (qwerty.import [3, i]);

yn:=yn+1;

end;

window (1,17,39,24);

gotoxy (5,2);