В данном варианте - никак.
Для начала ты должен получить значение 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)
Посмотри внимательней в задание, есть ли там какие-то значения.
Поделитесь своими знаниями, ответьте на вопрос:
Записать по правилам языка программирования выражение |sin x| + |cos y| - корень из 2sin+cos3y
abs(sin(x))+abs(cos(y))-sqrt(2*sin(x)+cos(3*y))