Задача в паскале. На 1 складе хранятся Х ящиков, на 2 - на 18 ящиков больше. Можно ли перевезти эти ящики на 10 машинах, если в 1 машину помещается Y ящиков.​

var

 x,y:integer;

begin

 write('На первом складе ящиков:'); readln(x);

 writeln('На втором складе ящиков:',x+18);

 write('В машину помещается ящиков:'); readln(y);

 write('На 10 машинах ящики перевезти ');

 if (x+x+18)/y<=10 then writeln('возможно')

   else writeln('невозможно');

end.