Фермер выращивает картофель и свеклу. фермер продает овощи на базу n килограмм картофеля по x рублей и столько же килограмм свеклы по y рублей. напишите программу, которая выводит прибыль фермера от продажи. вход: n – целое положительное число от 1 до 50, x – стоимость одного килограмма картофеля в диапазоне от 10 до 50 рублей; y – стоимость одного килограмма свеклы в диапазоне от 5 до 15 рублей. первым задается число n, затем на следующей строке число x, на следующей строке число y. выход: s – прибыль продажи
N, X, Y, S: real;
begin
write('Кол-во килограмм: ');
readln(N);
write('Стоимость одного килограмма кратофеля: ');
readln(X);
write('Стоимость одного килограмма свеклы: ');
readln(Y);
S := N * X + N * Y;
writeln('Прибыль: ', S);
end.