{* Задача217 *}

REM basic

' Предположим, что стоимость поездки на такси определяется как сумма
' следующих платежей: 10 руб. за посадку и 1 км пути плюс 5 рублей
' за каждые 500 метров проезда свыше 1 км.
' Составить программу, которая рассчитывает плату за проезд при вводе
' длины пройденного пути. Путь вводится с точностью до 0.5 км.


CLS
sid1km = 10
sverh05km = 5
INPUT "Введите длину пройденного пути (в км): ", l
If l  1 Then
        pay = sid1km + sverh05km * ((l - 1) / .5)
End If
PRINT "Плата за проезд:" + STR$(pay) + " руб."
End