помогите написать программу в Бэйсике для расчёта количества денег

Помогите написать программу в Бэйсике для рассчёта кол-ва денег водителю транспортного предприятия, где S-расстояние, r-расход топлива, St-стоймость 1 литра топлива, помогите мне расставить буквы в нужные строчки алгоритма
Program Name;
var ; :real;
begin
writeln();
readln();
:=;
writeln();
readlen;
end