даны 4 цифры. дописать программку, которая вычислит число по этим цифрам.var

Даны 4 числа. дописать программку, которая вычислит число по этим цифрам.

var a0, a1, a2, a3: longint;
Begin
read(a3, a2, a1, a0);
...
write(a)
End.

пример:
ввод:
1
5
9
8
вывод:
1598