uses crt; var i,s:longint; begin clrscr; for i:=1 to 10 do inc(s,i); writeln(s); readln; end.
*10 số nhập từ bàn phím:
uses crt; var a:array[1..1000000] of longint; i,s:longint; begin clrscr; for i:=1 to 10 do begin write('Nhap so thu ',i,': '); readln(a[i]); inc(s,a[i]); end; writeln('Tong: ',s); readln; end.
