Program Tong_Repeat;

uses crt;

var i: byte;

    so, tong: real;

begin

     write('NHAP CAC SO - NHAP 0 DE NGUNG ');

     readln;

     repeat

     clrscr;

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

     readln(so); tong:=tong+so; i:=i+1;

     until so=0;

     write('Tong la: ',tong:6:1);

     readln

end.

Program In_So_Chan;

uses crt;

var i,n:integer;

begin

      clrscr;

      Repeat

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

      until n>0;

      i:=2;

      while i<=n do

      begin

           write(i:4,', ');

           i:=i+2;

      end;

      readln

end.

Bài 2
Program In_So_Le;

uses crt;

var i,n:integer;

begin

      clrscr;

      Repeat

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

      until n>0;

      i:=1;

      while i<=n do

      begin

           write(i:3,', ');

           i:=i+2;

      end;

      readln

end.