program Sushi;varx, y, z, min: integer;beginwriteln('Введите количество г водорослей, риса и рыбы:');readln(x, y, z);
min := x;if y < min thenmin := y;if z < min thenmin := z;
writeln('Максимальное количество одинаковых роллов:', min);end.
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.