6.5.

— , ( ). function, , , in ( ). ( , ) , - .

PROGRAM - ERROR , . , .

:

function DOTPRODUCT(LEFT, RIGHT : VECTOR) return REAL is    SUM : REAL := 0.0; begin    CHECK(LEFT'FIRST = RIGHT'FIRST and LEFT'LAST = RIGHT'LAST);    for J in LEFT'RANGE loop       SUM := SUM + LEFT(J)*RIGHT(J);    end loop;   return SUM; end DOTPRODUCT;

: 6.1, 11, 6.4, 11, PROGRAM_ERROR 11.1, 5, 5.8, 6.1, 6.3, 6.1, 6.1.