Найти наибольшее целое нечетное положительное число Х, удовлетворяющее заданному условию - Pascal ABC

Формулировка задачи:

Написать программу, позволяющее найти и вывести на экран наибольшее целое нечетное положительное число Х, удовлетворяющее условию: 0,7e(в степени х)-150x<12,375

Решение задачи: «Найти наибольшее целое нечетное положительное число Х, удовлетворяющее заданному условию»

Листинг программы

var
  n, k, i: integer;
 
begin
  repeat
    write('Введите число n (n>1): ');
    readln(n);
  until n > 1;
  for i := 1 to n do
    //0,7e(в степени х)-150x<12,375 
    if 0.7 * exp(i) - 150 * i < 12.375 then 
      k := i;
  writeln('Найденное число = ', k);
  readln;
end.

Объяснение кода листинга программы

var n, k, i: integer;
repeat — write('Введите число n (n>1): '); — readln(n); — until n > 1;
for i := 1 to n do — //0,7e(в степени х)-150x<12,375 — if 0.7 exp(i) — 150 i < 12.375 then — k := i;
writeln('Найденное число = ', k);
readln; end.