Program zap_10;
Uses Crt;
Const
n = 10;
Type
izd = record
name: string[20];
tir: integer;
stoim: real;
end;
Var
a: array [1 .. n] of izd;
i: byte;
BEGIN
ClrScr;
for i := 1 to n do
with a[i] do
begin
Writeln('Введите наименование издания ', i);
Readln(name);
Writeln(' Тираж');
Readln(tir);
Writeln('Стоимость за год');
Readln(stoim);
End;
Writeln('Периодические издания');
for i := 1 to n do
with a[i] do
Writeln(name, ’ ‘, tir, ’ ‘, stoim:4:2);
Readln;
end.