Program zap_15;
Uses Crt;
Const n=10;
Type opis = record
k:integer;
name,dat1:string[20];
end;
Var a : array[1..n] of opis;
i :byte;
BEGIN
ClrScr;
for i:=1 to n do
with a[I] do
begin
Writeln('Введите инвентарный номер ');
Readln(k);
Writeln(' Введите наименование ');
Readln(name);
Writeln(' Введите дату учета');
Readln(dat1);
End;
Writeln('Инвентаризационная опись');
for i:=1 to n do
with a[I] do
writeln (k,' ',name,' ',dat1);
Readln;
end.