Паскаль / курсовые / Курсовая Pascal Компьютерная фирма / DOBAVLEN

program dobavit;
type
tovar=record
regnom:integer;{ॣЁбва жЁ®­­л© ­®¬Ґа}
name:string;{­ Ё¬Ґ­®ў ­ЁҐ}
haracter:string;{е аҐЄвҐаЁбвЁЄЁ}
data:string; {¤ в  Ё§Ј®в®ў«Ґ­Ёп}
garant:string; {ба®Є Ј а ­вЁЁ}
cenaopt:real; {®Їв®ў п 業 }
cenarozn:real; {஧­Ёз­ п 業 }
end;
var
baza:file of tovar; {ЇҐаҐ¬Ґ­­ п д ©«  б Ў §®©}
buf:tovar;
i:integer;
begin
assign(baza,'c:\Єгаб з\firma.dat'); {Ё­Ё «Ё§ жЁп д ©« }
rewrite(baza);
for i:=1 to 2 do begin
writeln('ॣ ­®¬Ґа');
readln(buf.regnom);
writeln('­ Ё¬Ґ®ў ­ЁҐ');
readln(buf.name);
writeln('е а ЄвҐаЁбвЁЄЁ');
readln(buf.haracter);
writeln('ба®Є Ј а­вЁЁ');
readln(buf.garant);
writeln('業  ®Їв®ў п');
readln(buf.cenaopt);
buf.cenarozn:=0;
write(baza,buf);
end;
close(baza);
end.