Помогите нужен линейный алгоритм на паскале. Составить алгоритм для решения задачи: Книга стоит d руб., журнал h руб. У покупателя денег S руб. Хватит ли их на 3 журнала и 2 книги?.

var     
d,h,s:real;   
    begin     
       readln(d,h,s);   
            if s/(d+h)>0 then     
               writeln(yes)     
             else       
                writeln(N);     
end.