Помогите пожалуйстиа решить задачу по математике

Решается программно var i: integer=0; begin while true do begin if (i<100)// Это число меньше ста. and(i>9)// Это число не меньше десяти. and(i>5)// Это число больше пяти. and(i*2>70)// Если удвоить это число, то получится значение больше семидесяти. and(i*3>125)// Если утроить это число, то получится значение больше двадцати пяти. then break; inc(i); end; writeln(i); end.