В стандартном Паскале нет функции десятичного логарифма, поэтому воспользуемся соотношением 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.
Program z1;
var v,s,t = integer;
begin
readln(s);
readln(t);
v=s/t;
writeln(v);
end.
X - сумма через год
Формула для вычисления процента от общей суммы = ((n*p)/100)
Следовательно, x = n+((n*p)/100)
Var
i,m,sum:Integer;
Begin
for i:=10 to 99 do
begin
m:=i mod 10;
n:=i div 10;
sum:=m+n;
if (i mod sum = 0) then Writeln(i);
end;
end.