Bài 1:

uses crt;
var i,s:longint; a:array[1..100000]of longint;
begin
clrscr;
   repeat
      inc(i);
      write('Phan tu thu ',i,':');readln(a[i]);
      inc(s,a[i]);
   until a[i]=0;
   writeln('Tong cua day so: ',s);
readln
end.

Bài 2:

uses crt;
var n,i:longint; 
begin
clrscr;
   repeat
      write('Nhap n: ');readln(n);
   until n>0;
   writeln('Cac so le nho hon hoac bang n la: ');
   for i:=1 to n do 
      if i mod 2=1 then write(i,' ');
readln
end.

Bài 1:

program Bai_1;

uses crt;

var n,T: real;

      i: integer;

Begin

         clrscr;

         n:=1; i:=1;

         while n<>0 do

         begin

                  write('Nhap so thu ',i,': '); readln(n);

                  T:=T+n;

                  i:=i+1;

         end;

         write('Tong cac so vua nhap = ',T:2:2);

         readln

End.

Bài 2:

program Bai_2;

uses crt;

var n,i: integer;

Begin

         clrscr;

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

         while n<=0 do

         begin

                  write('Nhap lai n>=0: '); readln(n);

         end;

         write('Cac so le <= ',n,': ');

         for i:=1 to n do

              if i mod 2<>0 then write(i,'  ');

         readln

End.