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

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