Truyen3h.Co

pas cau 8

pas cau 8

hvt271088

var

i,n:integer;

s:longint;

begin

writeln('nhapn');

readln(n);

s:=0;

for i:=1 to n do

s:=s+i;

write('tongla:',s);

readln;

end.

Bạn đang đọc truyện trên: Truyen3h.Co