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

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

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

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

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

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

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