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

gotoxy (21,2);

readln (qwerty.fio);

gotoxy (5,4);

writeln ('Vvedite nazvanie – ');

gotoxy (26,4);

readln (qwerty.name);

assign (f1,'c:\'+s1 [1]+s1 [2]+s1 [3]+'.zoo');

rewrite(f1);

write (f1, qwerty);

close(f1);

end;

{–}

procedure newreadkey (var a:char; var b:byte);

begin

b:=0;

a:=readkey;

if a=#0 then

b:=ord(readkey);

end;

{–}

procedure na4 (st:string; l, p:byte);

begin

rama (15,11,35,14,0,14);

gotoxy (2,2);

textbackground(p);

textcolor(l);

write(st);

end;

{–}