viết chương trình tính tổng s=1+4+7+... gồm N số hạng đầu tiên với N nhập từ bàn phím, in kết quả ra màn hình

`* Pascal`

program tong;
uses crt;
var x, i, N, S : integer;
begin
    clrscr;
    write('Nhap so N = ');
    readln(N);
    
    S := 0;
    x := 1;
    for i := 1 to N do 
    begin
        S := S + x;
        x := x + 3;
    end;
    
    write('S = ', S);
    readln
end.