1.
program phuongt;
uses crt;
var i, s: integer;
begin
clrscr;
i:=1;
s:=0;
while i<=1000 do
begin
s:=s+i;
i:=i+1;
end;
write('S = ', s);
readln
end.
2.
program phuongt;
uses crt;
var B: array[1..99] of integer;
n, i, d, s: integer;
begin
clrscr;
write('Nhap n = '); readln(n);
for i:=1 to n do
begin
write('B[', i, '] = '); readln(B[i]);
if B[i]>0 then
begin
d:=d+1;
s:=s+B[i];
end;
end;
writeln('Tong = ', s);
write('Co ', d, ' so duong trong day');
readln
end.
