Программа

Program Vladislav_Soft (input,output);
{ Вычислить по формуле, результат 
  вывести в таблицу }
Var
  l,int1,int2:real;
function Integral1(x:real):real;
{ Вычисление подстановки для первого интеграла }
  Begin
    Integral1:=Sqr(x)*(2-Sqr(x))/4
  End;
function Integral2(x,l:real):real;
{ Вычисление подстановки для второго интеграла }
  Begin
    Integral2:=-exp(Ln(l)/x)/Ln(l)
  End;
BEGIN
  writeln('Введите ''l'' ');                        { Ввод }
  readln(l);

  int1:=Integral1(1)-Integral1(0);                  { Вычисление интегралов }
  int2:=Integral2(2,l)-Integral2(1,l);

  writeln(' ----------------------------------- '); { Вывод }
  writeln('| 1-ый интеграл | ',int1,' |');
  writeln('| 2-ой интеграл | ',int2,' |');
  writeln('|---------------|-------------------|');
  writeln('| Сумма         | ',int1+int2,' |');
  writeln(' ----------------------------------- ')
END.