program sum;
{$APPTYPE CONSOLE}
uses SysUtils;
var u, v : array [0..2] of real;
var i : integer;
var ip : real;
begin
    u[0] := 1.9; u[1] := 2.8; u[2] := 3.7;
    v[0] := 4.6; v[1] := 5.5; v[2] := 6.4;
    ip := 0;
    for i := 0 to 2 do begin
        ip := ip + u[i] * v[i]; 
    end;
    writeln('product =', ip:8:3 );
    readln
end.