Viết chương trình tính tong trong đó có sử dụng chương trình con. S = 1+2+3+...+N ( N<=250)

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.