---

program Variant6_Task2;
const
  n = 4;
var
  p: array[1..n] of Real = (145.5, 230.2, 180.0, 215.4);
  i: Integer;
  total: Real;
begin
  total := 0;
  for i := 1 to n do
    total := total + p[i];
  Writeln('Суммарное количество картофеля: ', total:0:2, ' тонн');
  Readln;
end.