var f: text;
a, b, c: array[1..10] of integer;
i: byte;
Procedure xuly;
Begin
Assign(f, 'mang.txt'); reset(f);
For i:=1 to 10 do
Begin
read(f, a[i]);
Writeln('a[', i, '] = ', a[i]);
End;
readln(f);
For i:=1 to 10 do
Begin
read(f, b[i]);
Writeln('b[', i, '] = ', b[i]);
End;
readln(f);
For i:=1 to 10 do
Begin
read(f, c[i]);
Writeln('c[', i, '] = ', c[i]);
End;
Close(f);
End;
Begin
xuly;
readln
End.
