Здравствуйте!!! У меня чрезвычайное положение нужно сдать лабораторную по паскалю, но не могу выполнить задание!!!!!

[DemonPASKAL]

Помогите!!! Нужно составить блок схему и программу! За ранее благодарен!!!
Вычислить значение функции p, организовав цикл изменения параметра n с заданным количеством итераций, цикл для изменения параметра m - с предусловием, а цикл для изменения параметра а - с постусловием.

[Sciv]

a:=-0.1;
Repeat
  a:=a+0.2;
  if a>1 then a:=1;
  p:=1;
  for n:=0 to 10 do begin
    m:=1;
    while m<=4 do begin
      st:=1;
      for i:=1 to n+1 do st:=st*a;
      p:=(n*n+5)/(1+st);
      inc(m);
    end;
  end;
  WriteLn('a=',a:2:2,'; p=',p:2:2);
Until a=1;
ReadLn;

Переменные как нибудь сами объявляйте