На рисунке 104 изображена схема цепи для демонстрации возникновения индукционного тока в катушке при изменении сила тока в ней.

Program sss;
var i,n,k:integer; a:array[1..100]of integer;
for i:=1 to n do
begin
read(k);
a[i] := k - 1;
write(a[i],' ');
end;
end.