помогите с паскалем

[puporev]

Извините, напортачил. Нужно так:

Program Riad;
uses crt;
var n,i:integer;
    a,sum:real;
function Step(a:real;b:integer):real;
var t:real;
begin
  t:=abs(a);
  if a<0 then Step:=(-1)*exp(b*ln(t))
  else Step:=exp(b*ln(t));
end;
begin
  clrscr;
  write('n=');readln(n);
  write('a=');readln(a);
  sum:=0;i:=1;
  repeat
  sum:=sum+1/Step(a,2*n);
  i:=i+1;
  until i=n;
  sum:=sum+1;
  write('sum=',sum:8:4);
  readln
end.

[lyonya0111]

а кто знает как начало написать у первой проги а то че-то у меня не получается

[lyonya0111]

спасибо прога работает ура