Определите значение переменой a после выполнения данного алгоритма: а: =2 b: =7+9*a a: =b/5*a в ответе укажите одно число-значение переменной а​

Больше мороки чем type int=100..999; var x: int; begin   readln(x);   case (x div 100) of     1: write('сто ');     2: write('двести ');     3: write('триста ');     4: write('четыреста ');     5: write('пятьсот ');     6: write('шестьсот ');     7: write('семьсот ');     8: write('восемьсот ');     9: write('девятьсот ');   end;   if  ((x mod 100) div 10)=1 then     case (x mod 10) of       0: write('десять  ');       1: write('одиннадцать  ');       2: write('двенадцать  ');           3: write('тринадцать  ');         4: write('четырнадцать  ');         5: write('пятнадцать  ');         6: write('шестнадцать  ');         7: write('семнадцать  ');         8: write('восемнадцать  ');             9: write('девятнадцать  ');     end   else     begin       case ((x mod 100) div 10) of         2: write('двадцать  ');           3: write('тридцать  ');             4: write('сорок  ');             5: write('пятьдесят  ');           6: write('шестьдесят  ');             7: write('семьдесят  ');             8: write('восемьдесят  ');           9: write('девяносто  ');     end;     case (x mod 10) of       1: write('один');       2: write('два');           3: write('три');             4: write('четыре');             5: write('пять');           6: write('шесть');             7: write('семь');             8: write('восемь');           9: write('девять');     end;     end; end.