Дан фрагмент программы. Что появится ** экране? S:=0; FOR I:=1 TO 4 DO BEGIN MAS[I]:=I;...

Question

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

FOR I:=1 TO 4 DO

BEGIN

MAS[I]:=I;

S:=S+MAS[I];

END;

WRITELN (S);

Answer 1

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