câu 1) tính tổng số nhỏ hơn hoặc bằng N.N nhập từ bàn phím (gợi ý dùng thêm IF và MOD).

uses crt;

var i, N, s : integer;

begin

clrscr; s := 0;

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

for i := 1 to N do

s := s + i;

write('Tong nho hon N = ', s);

readln

end.

program oken;
uses crt;
var n,s,i:longint;
begin
        clrscr;
        write('nhap n: '); readln(n);
        i:=1;
        while i<=(n*n) do
                begin
                        s:=s+i;
                        i:=i+1;
                end;
        writeln('Tong cac so be hon ',n*n,': ',s);
        readln;
end.

${Oken}$