program oken; uses crt; var n:byte; function s(n:byte):longint; var i:byte; begin for i:=1 to n do s:=s+i; end; begin clrscr; write('Nhap 1 so bat ky: '); readln(n); writeln('Tong tu 1 den ',n,': ',s(n)); readln; end.
uses crt; var n:byte; function s(n:byte):longint; var i:byte; begin for i:=1 to n do s:=s+i; end; begin clrscr; write('Nhap n: '); readln(n); write('Tong tu 1 den ',n,' la: ',s(n)); readln end.
