Запишите выражение на языке программирования y=(5x^2-4)/(7x+2)

Y := (5 * (x * x) - 4) / (7 * x + 2);

Надеюсь алгоритм автомата обьяснять не надо

Таблица из чего что получается при пробеге от 100 до 999
[189, 917]
[890, 917]
[898, 1717]
[981, 917]
[989, 1717]

Общее кол-во / Статистика
{1717=>2, 173=>0, 179=>0, 1719=>0, 1917=>0, 917=>3, 317=>0, 111=>0}

Решается аналитически путем подбора числа из которого мог бы получится желаемый результат.
Заметим что максимальная сума двух разрядов 9+9=18 , что сразу отметает 1-73, 1-79, 17-19, 1-917 (другие разбиения противоречат п.2)
1-11 - получается средний разряд = 0, а последний = 11 > 9
3-17 - получается 17 = 9+8, а 3 < 8

Pascal

Оператор ветвления (условный оператор) IF
 
 If (условие) then
  Блок, выполняющийся, если условие верно
 else
 Блок, выполняющийся если условие не верно

Сокращенная форма (else может отцутствовать)
if (условие) then
 Блок, выполняющийся, если условие верно

Если условие одно то запись имеет вид
 if a >b then...
Если условий несколько, то они берутся в скобки
and (выполняются все); or (выполняется хоть одно)
1 - верно 0 - неверно
( 1 and 1 = 1; 1 and 0 = 0)   
(1 or 1 =1; 1 or 0 = 1;  0 or 0 = 0)
 if (a>b) and (a > 0) then

Если блок да/нет содержит несколько операторов, то они беруться в операторные скобки
 if a > b then
  writeln (a)    // 1)
 
if a > b then
 begin
  writeln (a); // 1)
  b := a + b; // 2)
 end;

if a > b then
 begin
  writeln (a); // 1)
  b := a + b; // 2)
 end
else
 begin
  writeln (b); //1)
  a := a + b; //2)
 end;