câu 1
b1: nhập n
b2: cho i chạy từ 1-->n thực hiện s:=s+i;
b3: xuất kết quả
câu 2:
uses crt;
var n: integer;
begin
clrscr;
write ('nhap n: '); readln (n);
if n>0 then writeln (n,' la so nguyen duong');
if n<0 then writeln (n,' la so nguyen am');
if n=0 then writeln (n,' khong phai la so nguyen am cung khong phai la so nguyen duong');
readln;
end.