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

gotoxy (4,2);

write(s);

end;

end;

end;

{==================}

begin

textmode(co40);

window (1,1,40,25);

clrscr;

s1:='Postavka';

s2:='Vigruzka';

s3:='Na sohran';

s4:='Zakon4it';

menu_1 (s1, s2, s3, s4);

i:=1;

menu_2 (i, s1);

repeat

newreadkey (h, l);

case l of

80:i:=i+1;

72:i:=i-1;

end;

case i of

0:i:=4;

5:i:=1;

end;

case i of

1:begin