Ответ:
Здесь одно предложение, поэтому вся информация новая
Для нахождения минимума из четырёх чисел, можно использовать метод для нахождения минимума из двух чисел. Таким образом код будет намного яснее и компактнее. И вместо присваивания значения переменным m4 и m2 лучше сразу возвращать результат.
static int min2(int a, int b)
<span>{
</span><span> if(a < b)
</span><span> {
</span><span> return a;
</span><span> }
</span><span> else
</span><span> return b;
</span><span>}
static int min4(int a, int b, int c, int d)
<span>{
</span><span> return min2(min2(a, b), min2(c, d));
</span><span>}</span></span>
Var
B,X:real;
Begin
Write('B = ');ReadLn(B);
Write('X = ');ReadLn(X);
Write('Итоговая стоимость = ',X*B*0.8,' руб.')
End.