(33 ) перепишите программу на паскале, исправив ошибки: program massiv; var a: array(-10..10) of integer; begin for i: =1 to 20 do read(a[i]); for i: =1 to 20 do a[i]: =a[i]/10; for i: =1 to 20 do write(a[i]) end.

Var
  a: array[-10..10] of real;
  i: integer;
 
begin  
  for i := -10 to 10 do begin
    Read(a[i]);
    a[i] := a[i] / 10;
    Write(a[i]+' ');  
  end;
end.