Сходства анимации движения и анимация формы​

для начала было бы неплохо знать какую конкретно ошибку вы видите.

я лично вижу ошибку в этой строке

e=float(input(e**0.5((b-a)**2)+((d-c)**2))

во-первых, вы пытаетесь возвести е в степень 0,5, хотя е еще не была определена, то есть вы пытаетесь сослаться на пустую
переменную.

во-вторых, у вас после степени стоит сразу скобка, нет знака умножения, деления, ничего, просто сразу стоит скобка. пайтон воспримет это как то, что вызывается некая функция от е**0.5

и в-третьих, как уже сказано в другом ответе, проследите, что все скобки на месте

program n_1;

uses math;

var i, n, m, a, kol, j: int64;

begin

    readln(n);

    kol: =0;

    a: =n;

    while a< > 0 do begin

        a: =a div 10;

 
      kol: =kol+1;

    end;

    m: =n mod 100;

    for i: =1 to kol-1 do begin

        if((n div 10) mod 100 > m) then m: =(n div 10) mod 100;

        n: =m div
10;

    end;

    writeln(m);

end.

решение чисто . думаю через строковый тип данных работать будет намного проще.