PROGRAM SEC (INPUT,OUTPUT);
CONST N=5;
VAR
     A   : REAL;
     SUM : REAL;
     I   : INTEGER;
BEGIN
     SUM:=0;
     WRITELN('Ââåäèòå ',N:1,' ÷èñåë ÷åðåç ïðîáåëû');
     FOR I:=1 TO N DO
      BEGIN
       READ(A);
       SUM:= SUM + A;
      END;
     WRITELN('----------------------------------------');
     IF((SUM/SUM)=1) THEN
      WRITELN('Ñóììà ÷èñåë =' , SUM:6:2 )
     ELSE WRITELN('Îøèáêà â ïðîãðàììå!');
END.