Дан фрагмент программы. Что появится на экране?
S:=0;

FOR I:=1 TO 4 DO

BEGIN

MAS[I]:=I;

S:=S+MAS[I];

END;

WRITELN (S);

var   s: integer;   mas: array[1..4]of integer;  begin   s := 0;   for var i := 1 to 4 do begin     mas[i] := i;     s := s + mas[i];   end;   writeln(s); end.Ответ:10