<span>Перепишите</span><span> программу на Паскале, исправив ошибки:</span>
<span>Program massiv;</span>
<span>Var a:array(-10..10) of integer;</span>
<span>Begin</span>
<span><span />For i:=1 to 20 Do</span>
<span><span />Read(a[i]);</span>
<span><span />For i:=1 to 20 Do</span>
<span><span />a[i]:=a[i]/10;</span>
<span>For i:=1 to 20 Do</span>
<span><span />Write(a[i])</span>
<span>End.</span>