quá dễ
uses crt;
var i,n,t:integer;
begin
clrscr;
write('nhap n='); readln(n);
t:=0;
writeln('cac so nguyen le trong khoang tu 1 toi ',n,' la:');
for i:=1 to n do
if i mod 2=1 then
begin
write(i:4);
t:=t+i;
end;
writeln;
writeln('tong cac so nguyen le trong khoang tu 1 toi ',n,' la: ',t);
readln;
end.
Program hotrotinhoc;
var n,d: integer;
tb: longint;
tbc: real;
begin
write('n='); readln(n);
tb:=n; d:=0;
while n<>0 do
begin
write('n='); readln(n);
inc(d);
tb:=tb+n;
end;
tbc:=tb/d;
write(tbc:2:2);
readln
end.