program Sushi;
var
x, y, z, min: integer;
begin
writeln('Введите количество г водорослей, риса и рыбы:');
readln(x, y, z);

min := x;
if y < min then
min := y;
if z < min then
min := z;

writeln('Максимальное количество одинаковых роллов:', min);
end.