{* Задача 428 *}

Unit ZADACH428;
Interface
Implementation
Begin
 writeln('Известны данные по продаже компьютеров в течение недели. Найти общее количество проданных компьютеров.');
End.

Program zadach428;
Uses crt; {* Вызов внешних функций *}
Type {* Типы переменных *}
  comp = Array[1..7]Of real;
Var {* В работе нам потребуются переменные: *}
  i : integer;
  p : comp;
  S : real;
Begin
  S := 0;
  For i := 1 To 7 Do {* Цикл для i => [1 .. 7] *}
  Begin
    Writeln('vvedite obiem prodaj', i, '-ogo dnya, sh'); { вывод данных на экран }
    readln(p[i]); { вычисление }
    S := s + p[i];
  End;
  writeln('summarniy obiem prodaj s=', s : 2:1, 'sh'); { вывод данных на экран }
End.