Дано натуральное число. Определить номер цифры «8»
в нем, считая от конца числа. Если такой цифры нет, ответом
должно быть число 0, если таких цифр в числе несколько —
должен быть определен номер самой левой из них(на языке PYTHON)

рrogram summa;

var s, a, b, c : word;

            write('введите a - > '); readln(a);

            write('введите b - > '); readln(b);

            write('введите с - > '); readln(c);

            s=а+в+с

            write(' сумма равна ',s);

            readln

в принципе все, должно быть правильно

uses graph;                                           {подключен модуль graph}var x,y,h: integer; procedure grinit;       {процедура инициализации режима графики}var      graphdriver: integer;                   {для графического адаптера}      graphmode  : integer;                   {для графического режима}      errorcode  : integer;                   {для кода ошибки}begin      graphdriver : =detect;                   {режим автоопределения}      initgraph(graphdriver ,graphmode,''); {инициализация}      errorcode : =graphresult;             {результат инициализации}      if errorcode < >   grok then        {если не успешно,}      begin            writeln('ошибка графики: ',grapherrormsg(errorcode ));             writeln('программа остановлена.');             halt(1)      end {if}end; begin      grinit;                                                           {вызов инициализации}      x: =getmaxx div 2;       y: =getmaxy div 2;       h: = 30; {кол-во шагов до финиша}      while x+y> 0 do      begin        cleardevice;             circle(x, y, 10);             delay(100);             x: = x + getmaxx div h;             y: = y - getmaxy div h;       end;       readln;                                                 {пауза до нажатия }      closegraph;                                 {закрытие графического режима}end.

var a: array [1..5] of integer; s,i: integer; begin      for i : = 1 to 5 do  begin      writeln('a[',i,']=');       read(a[i]);         s: =s + a[i]  end;   writeln('s=',s); end.

var s: string;

begin s : = 'informatica'; writeln(s); writeln(copy(s, 3, 5)); writeln(copy(s, 6, 3)); writeln(copy(s, 8, 3)); writeln(copy(s, 8, 2) + s[5]); end.