Решение олимпиадных задач

Забор
Сначала надо проверить: можно ли вообще из досок длины L вырезать доски размером M, если это условие не выполнимо, то ни о каком заборе речи быть не должно.
Далее выясняем сколько досок длиной M можно получить из одной доски длиной L и наконец проверяем можно ли из всего количества досок получить нужное.

 
program zabor;
var n,m,l,c:integer;
begin
readln(n,l,c,m);
if m>l then writeln('no') else
      if (l div m)*n>=c then writeln('yes') else writeln('no');
end.