var m, n, k, r, sum : integer;

begin
  write('Введите цену яблок: '); read(r);
  write('Введите цену апельсинов: '); read(k);
  write('Введите кг яблок: '); read(m);
  write('Введите кг апельсинов: '); read(n);
  sum := r*m + k*n;
  write('Общая стоимость покупки: ',sum);
end.