Calc

;Блок 1
$staj=InputBox("Здравствуйте","Введите стаж(полных лет)")
$bud=InputBox(" ","Внесите общее количество смен В БУДНИЕ ДНИ")
$sub=InputBox(" ","А теперь ТОЛЬКО ЗА СУББОТЫ")
$vos=InputBox(" ","А теперь ТОЛЬКО ЗА Воскресенья")
;Блок 2
$g0=235.00*12
$g1=246.75*12
$g2=258.50*12
$g3=270.25*12
$g4=282.00*12
$g5=293.75*12
$g6=305.50*12
$g7=317.25*12
$g8=329.00*12
$g9=340.75*12
;Блок 3
$gvs0=11*(235.00+23.5)
$gvs1=11*(246.75+23.5)
$gvs2=11*(258.50+23.5)
$gvs3=11*(270.25+23.5)
$gvs4=11*(282.00+23.5)
$gvs5=11*(293.75+23.5)
$gvs6=11*(305.50+23.5)
$gvs7=11*(317.25+23.5)
$gvs8=11*(329.00+23.5)
$gvs9=11*(340.75+23.5)
;Блок 4
$gvv0=10*(235.00+23.5)
$gvv1=10*(246.75+23.5)
$gvv2=10*(258.50+23.5)
$gvv3=10*(270.25+23.5)
$gvv4=10*(282.00+23.5)
$gvv5=10*(293.75+23.5)
$gvv6=10*(305.50+23.5)
$gvv7=10*(317.25+23.5)
$gvv8=10*(329.00+23.5)
$gvv9=10*(340.75+23.5)



if $staj = 0 Then
   $st=($bud*$g0)+($sub*$gvs0)+($vos*$gvv0)
ElseIf $staj = 1 Then
   $st=($bud*$g1)+($sub*$gvs1)+($vos*$gvv1)
ElseIf $staj = 2 Then
   $st=($bud*$g2)+($sub*$gvs2)+($vos*$gvv2)
ElseIf $staj = 3 Then
   $st=($bud*$g3)+($sub*$gvs3)+($vos*$gvv3)
ElseIf $staj = 4 Then
   $st=($bud*$g4)+($sub*$gvs4)+($vos*$gvv4)
ElseIf $staj = 5 Then
   $st=($bud*$g5)+($sub*$gvs5)+($vos*$gvv5)
ElseIf $staj = 6 Then
   $st=($bud*$g6)+($sub*$gvs6)+($vos*$gvv6)
ElseIf $staj = 7 Then
   $st=($bud*$g7)+($sub*$gvs7)+($vos*$gvv7)
ElseIf $staj = 8 Then
   $st=($bud*$g8)+($sub*$gvs8)+($vos*$gvv8)
ElseIf $staj = 9 Then
   $st=($bud*$g9)+($sub*$gvs9)+($vos*$gvv9)

   Else
MsgBox(48,"ВНИМАНИЕ!!!","Некорректный ввод в графу стаж. Попробуйт снова")
Exit
EndIf

MsgBox(0,"Ваша ЗП",$st)