Перепишите программу на Паскале…

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