program TimSoBeNhat;

var
  a, b, c, min: Integer;

begin
  Write('Nhap ba so nguyen: ');
  ReadLn(a, b, c);

  min := a; // Giả sử a là số bé nhất ban đầu

  // So sánh min với b và c để tìm ra số bé nhất
  if b < min then
    min := b;
  if c < min then
    min := c;

  WriteLn('So be nhat la: ', min);
  ReadLn;
end.