Ребят, проходим паскаль, програмирование — ничего не понимаю, сколько бы не…

var sum, a: integer; begin sum: =0; a: =0; repeat sum: =sum+a; read (a); until a < 0; writeln (sum); end. var ALFA: array [1… 10] of integer; DECO: array [1… 50] of integer; BETTA: array [1… 200] of real; i: integer; begin for i: =1 to 10 do read (alfa[i]); for i: =1 to 50 do deco[i]: =sqr (i); for i: =1 to 100 do betta[i]: =random (200); writeln; for i: =1 to 10 do write (alfa[i]); writeln; for i: =1 to 50 do write (deco[i]); writeln; for i: =1 to 100 do write (betta[i]); end.