Program baitap;
Uses crt;
Var G:array[1..100] of longint;
    n,i,min,dem:longint;
Begin
Clrscr;
dem:=0;
Write('Nhap so goi keo:'); Readln(n);
For i:=1 to n do
     Begin
     Write('Nhap gia tien goi keo thu ',i,' (dong):');
     Readln(G[i]);
     End;
min:=G[1];
For i:=2 to n do
     If G[i]<min then min:=G[i];
For i:=1 to n do
     If G[i]=min then dem:=dem+1;
Writeln('So luong goi keo co gia re nhat:',dem);
Readln
End.

_______________________

Đã test code

uses crt;

var G : array [1 .. 99] of integer;

i, n, d, m : integer;

begin

clrscr;

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

for i := 1 to n do

    begin

        write('Nhap gia tien G',i ,' = ');

        readln(G[i]);

    end;

m := G[1]; d := 0;

for i := 2 to n do if G[i] < m then m := G[i];

for i := 1 to n do if G[i] = m then d := d + 1;

writeln('So luong goi keo gia re nhat : ', d);

readln

end.