VCT tính tổng các số chẵn,tổng các số lẻ với n nhập từ bàn phím . In tổng chẵn, tổng lẻ(ngôn ngữ passcal giúp mình)

program Tn;
uses crt;
var n,i:integer;
    Sc,sl:integer;
Begin
    clrscr;
    write('n = ');readln(n);
    for i:=1 to n do
    if i mod 2=0 then sc:=sc+i
    else sl:=sl+i;
    writeln('tong chan = ',sc);
    write('tong le = ',sl);
    readln;
End.

uses crt;

var i, n, t1, t2 : integer;

begin

clrscr;

t1 := 0; t2 := 0;

write('nhap so n : '); readln(n);

for i := 1 to n do

if i mod 2 = 0

then t1 := t1 + i else t2 := t2 + i;

writeln('tong so chan : ', t1);

writeln('tong so le : ', t2);

readln

end.