Как решить a1:=1/(13x)
a2:=a1/x
a3:=a2/x
a4:=a3/x
y:=a1+a4

В данном варианте - никак.

Для начала ты должен получить значение x. Это делается через функцию Read(x) или Readln(x). Далее ты должен произвести проверку, чтобы x не равнялся нулю (это обязательно в любом случае, иначе будет попросту ошибка). Это делается через условие if x <> 0 then ...

Далее ты должен откуда-то взять числа a1, a2, a3 и a4. Если они уже есть, то произвести деление. Если же нет, то их нужно все ввести, как показано с переменной x.

После всех манипуляций ты складываешь a1 и a4.

И да, в первом (a1 := 1/(13x)) у тебя допущена ошибка. Я так понял, ты хотел изобразить умножение 13 на x. Нет, так нельзя. Надо писать через умножение: a := 1/(13*x)

Посмотри внимательней в задание, есть ли там какие-то значения.