uses crt;

var A : array [1 .. 100] of real;

i, N : integer; M : real;

begin

clrscr;

write('Nhap N = '); readln(N);

for i := 1 to N do

    begin

        write('Nhap diem Tin ban ', i ,' : ');

        readln(A[i]);

    end;

M := A[1]; for i := 1 to N do

if A[i] < M then M := A[i];

write('Diem thap nhat : ', M : 2 : 1);

readln

end.

Program diem_tin;

uses crt;

var i, min, n : integer;

a : array [1..50] of integer;

begin

clrscr;

write ('Nhap diem tin cua cac ban:'); readln (N);

for i:=1 to n do

begin

write ('Nhap diem cua ban thu' , i ,' : ');

readln (a[i]);

end;

min := a[1];

for i:=2 to n do if min > a [i] then min :=a [i];

write ('Nhap diem thap nhat: ' ,min);

readln;

end.