Tính tổng n số nhập từ bàn phím :
uses crt;
var i, n, s, t : integer;
begin
clrscr;
write('Nhap so n : '); readln(n);
s := 0;
for i := 1 to n do
begin
write('Nhap so thu ', i ,' : '); readln(t);
s := s + t;
end;
writeln('Tong n so da nhap : ', s);
readln
end.