giúp mk câu b, c, d với cảm ơn trước

b)

uses crt;

var n,i:word;

    kq:longint;

BEGIN

        clrscr;

        write('Nhap N:'); readln(n);

        kq:=0;

        for i:=1 to n do

        kq:=kq+(i*i);

        write(kq);

        readln

END.

c)

uses crt;

var n,i:word;

    kq:real;

BEGIN

        clrscr;

        write('Nhap N:'); readln(n);

        kq:=0;

        for i:=1 to n do

        kq:=kq+1/i;

        write(kq:0:3);

        readln

END.

d)

uses crt;

var n,i:word;

    kq:qword;

BEGIN

        clrscr;

        write('Nhap N:'); readln(n);

        kq:=1; i:=3;

        while i<=(2*n+1) do

        begin

                kq:=kq*i;

                inc(i,2);

        end;

        write(kq);

        readln

END.

Chúc bạn học tốt!