Сделать в среде КуМир!!!!!!Срочно!!!!!!

А воспитанно попросить Вы считаете излишним?

Пожалуйста, очень необходимо

Это теснее лучше. И будет ещё лучше, если Вы "пожалуйста" прямо в вопросе напишите.

1.
алг А1
нач
  вещ R, L, S
  вывод "R =", нс
  ввод R
  L:=2*3.14*R
  S:=3.14*R*R
  вывод "L = ", L
  вывод "S = ", S
кон

2.алг Покупка
нач
  вещ p, m, s
  вывод "Введите начальные данные:", нс
  вывод "Цена 1-го килограмма яблок (руб.) -gt; "
  ввод p
  вывод "Вес яблок (кг) -gt; "
  ввод m
  s:=p*m
  вывод "Цена покупки: ", s
кон