var a: array [1..8] of Integer; і, k: Integer;
begin for і := 1 to 8 do a[і] := і*3;
k := a[1]+a[8]; …
чему равно значение К после испоонения фрагмента программы?