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

case i of

1: begin

window (4,9,18,11);

textbackground(2);

textcolor(0);

clrscr;

gotoxy (4,2);

write(s)

end;

2: begin

window (4,12,18,14);

textbackground(2);

textcolor(0);

clrscr;

gotoxy (4,2);

write(s);

end;

3: begin

window (4,15,18,17);

textbackground(2);

textcolor(0);

clrscr;

gotoxy (4,2);

write(s);

end;

4: begin

window (4,18,18,20);

textbackground(2);

textcolor(0);