User talk:Angay456

Program cau_1 var i, S : int ; begin s:=0; for i:= 1to10 do S:=s+i ; write ( Tong S la:',S) ; Readln ; end.