câu 1:
uses crt;
var n: integer;
begin
clrscr;
write ('nhap n: '); readln (n);
if n<0 then writeln (n,' la so am');
if n>0 then writeln (n,' la so duong');
if n=0 then writeln (n,' khong phai la so am cung khong phai la so duong');
readln;
end.
câu 2:
uses crt;
var i,s: integer;
begin
clrscr;
for i:=1 to 100 do s:=s+i;
writeln ('tong la: ',s);
readln;
end.