сброс
рх 100, 340
сч
$a = 0
$s = 0
пока $s < 115 {
  $a = $a + 1
  $s = $s + $a
  иди 40, 20*$a 
  напиши $a
}