Program Bai2;

Use crt;

Var

Tep: TEXT;

A:ARRAY[1..100] of integer;

S,I,n: integer;

Begin

Clrscr;

ASSIGN(tep,’D:\TP\BAITAP.INP’);

RESET(tep);

S:=0

While not(EOF(tep)) do

Begin

Readln(tep,A[i]);

Write(A[i]:5);

S:=S+A[i];

End;

Writeln;

Writeln(‘Tong cua day so la:’,S);

Close(tep);

Readln;End.