đây, tìm bcnn luôn, rất ư là thực  tế:

program tim_bcnn;

uses crt;
var x, y, i, n, ucln, bcnn: longint;
  a: array[1..100] of integer;
function h_ucln(x,y:integer):integer;
begin
 while x<>y do
  if x>y then
   x:=x-y
  else
   y:=y-x;
 h_ucln:=x;
end;
begin
 clrscr;
 repeat
  write('Nhap N (N>=2): ');
  readln(n);
 until(n>=2);
 for i:=1 to n do
 begin
  write('Phan tu thu ',i,' = ');
  readln(a[i]);
 end;
 ucln:=h_ucln(a[1],a[2]);
 bcnn:=(a[1]*a[2]) div ucln;
 for i:=3 to n do
 begin
  ucln:=h_ucln(bcnn,a[i]);
  bcnn:=(bcnn*a[i]) div ucln;
 end;
 writeln('bcnn la: ',bcnn);
 readln;
end.

- Chương trình tính nhiệt độ của n ngày

uses crt;

var a : array[1..165] of real;

i, n : integer; s : real;

begin

clrscr;

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

s := 0;

for i := 1 to n do

begin

write('Nhap nhiet do ngay thu ', i ,' : ');

readln(a[i]); s := s + a[i];

end;

writeln('Nhiet do trung binh ', n ,' ngay la ', s / n : 2 : 2);

readln

end.