Косте

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
type
tovar = record
nazv: string[20];
kolvo: word;
cena: real;
end;
var
f: file of tovar;
a: tovar;
BEGIN
assign(f, 'tovar.dat'); reset(f);
while not(eof(f)) do
begin
read(f, a);
writeln(a.nazv:10, a.kolvo:5, a.cena:9:2);
end; close(f);
END.