Фермер выращивает картофель и свеклу. Фермер продает овощи ** базу N килограмм картофеля...

Question

Фермер выращивает картофель и свеклу. Фермер
продает овощи на базу N килограмм картофеля по X рублей и
столько же килограмм свеклы по Y рублей. Напишите программу,
которая выводит прибыль фермера от продажи.
Вход: N – целое положительное число от 1 до 50, X – стоимость
одного килограмма картофеля в диапазоне от 10 до 50 рублей; Y –
стоимость одного килограмма свеклы в диапазоне от 5 до 15
рублей. Первым задается число N, затем на следующей строке
число X, на следующей строке число Y.
Выход: S – прибыль продажи

Answer 1

Var
  N, X, Y, S: real;
begin
  write('Кол-во килограмм: ');
  readln(N);
  write('Стоимость одного килограмма кратофеля: ');
  readln(X);
  write('Стоимость одного килограмма свеклы: ');
  readln(Y);
  S := N * X + N * Y;
  writeln('Прибыль: ', S);
end.