1:
uses crt;
var n,m,s:integer;
begin
clrscr;
readln(m,n);
for m:=m to n do
inc(s,m);
writeln('Tong: ', s);
end.
=================
2:
uses crt;
var n,i:integer;
function kiemtra(a:integer):integer;
begin
if a>0 then writeln(a, ' la so duong.')
else if a < 0 then writeln(a, ' la so am.')
else writeln('Khong la so am, so duong.');
if a mod 2 = 0 then writeln(a, ' la so chan.')
else writeln(a, ' la so le.');
writeln('Chia het cho: ');
for i:= 1 to a do
if a mod i = 0 then write(i, ' ');
end;
begin
clrscr;
readln(n);
kiemtra(n);
end.