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.