Курсовая работа: База даних по обліку вогнепальної зброї

exit;

end;

if i=5 then

begin

i:=1;

xx:=y1;

gotoxy(x1,xx);

write('=>');

end;

end;

end;

end;

procedure zap;

var i,n:integer;

begin

clrscr;

writeln('vvedi kol-vo orugia');

readln(n);

assign(f,'d:\uy.rer');

rewrite(f);

for i:=1 to n do

begin

with oru do

begin

writeln('vvedi model orugia');

readln(med);

writeln('vvedi kalibr ');

readln(kal);

writeln('vvedi ves ');