Перепишите программу на...

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

 

Program massiv;
Var a:array[-10..10] of integer;
Begin
  For i:=1 to 20 Do Read(a);
 For i:=1 to 20 Do a:=round(a/10);
 
        For i:=1 to 20 Do Write(a);
end. 
 
 
И вообще можно написать так
Program massiv;
Var a:array[-10..10] of integer;
Begin
  For i:=1 to 20 Do
      begin 
          Read(a);
          a:=round(a/10); 
            Write(a);  
 
        end;
end.