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.