В стандартном Паскале нет функции десятичного логарифма, поэтому воспользуемся соотношением lg(x) = ln(x) / ln(10).
Кроме того, показатель степени у числа "е" (-x² / 2xy) можно упростить до -x / 2y.

var
  a,x,y:real;
begin
  Write(Введите x и у через пробел: ); Read(x,y);
  a:=1e5*Ln(Abs(0.8*x))/Ln(10)*Exp(-x/(2*y));
  Writeln(a=,a)
end.