для начала было бы неплохо знать какую конкретно ошибку вы видите.
я лично вижу ошибку в этой строке
e=float(input(e**0.5((b-a)**2)+((d-c)**2))
во-первых, вы пытаетесь возвести е в степень 0,5, хотя е еще не была определена, то есть вы пытаетесь сослаться на пустую
переменную.
во-вторых, у вас после степени стоит сразу скобка, нет знака умножения, деления, ничего, просто сразу стоит скобка. пайтон воспримет это как то, что вызывается некая функция от е**0.5
и в-третьих, как уже сказано в другом ответе, проследите, что все скобки на месте
var
k,i:integer;
begin
write('Введите k: ');
readln(k);
for i:=3 to k do
if i mod 3 = 0 then
begin
write(i);
if (i<>k) and (i<>k-1) and (i<>k-2)
then
write(', ');
end;
end.