*Dùng số thực nhưng có thể không chính xác số thập phân

program dau_cuoi;

uses crt;

var B:array[1..30] of real;

      n,i:byte;

begin

        clrscr;

        write('Nhap so luong phan tu: ');  readln(n);

        for i:=1 to n do

                begin

                        write('B[',i,']= ');  readln(B[i]);

                end;

        writeln('Phan tu dau tien la: B[1]= ',B[1]:2:2);

        writeln('Phan tu cuoi cung la: B[',n,']= ',B[n]:2:2);

        readln;

end.

*Cách 2: dùng xâu chính xác từng chữ số

program dau_cuoi;

uses crt;

var B:array[1..30] of string;

      n,i:byte;

begin

        clrscr;

        write('Nhap so luong phan tu: ');  readln(n);

        for i:=1 to n do

                begin

                        write('B[',i,']= ');  readln(B[i]);

                end;

        writeln('Phan tu dau tien la: B[1]= ',B[1]);

        writeln('Phan tu cuoi cung la: B[',n,']= ',B[n]);

        readln;

end.

uses crt;
var i,n:longint; b:array[1..1000000]of real;
begin
clrscr;
   write('Nhap so phan tu (N<=30)=');readln(n);
   for i:=1 to n Do 
      begin
         write('b[',i,']=');readln(b[i]);  
      end;
    writeln('Phan tu dau tien: ',b[1]:0:5);
    writeln('Phan tu cuoi cung: ',b[n]:0:5);
readln
end.