Задача паскаля!Возможно надо что то добавить???

[Impario]

program pr98;
 uses crt;
  var a,ak,b,bk,k,n:integer;
   begin
    clrscr;
     writeln('vveditem konechnoe znachenie');
      readln(n);
       a:=1;
        b:=1;
     ak:=0;
     bk:=0;
      for k:=2 to n do
       begin
        for k:=n to k-1 do
         begin
          a:=a*k;
          b:=b*k;
          ak:=(3*b)+(2*a);
          ak:=ak*k;
         end;
        end;
               for k:=n to k-1 do
                begin
                 a:=a*k;
                 b:=b*k;
                 bk:=(2*a)+b;
                 bk:=bk*k;
                end;
                 writeln('ak=',ak:6);
                 writeln('b=',bk:6);
                 readln;
                end.

вот условие:http://forum.vingrad.ru/act-Attach/type/post

a1=b1=1; ak=3*b с к-1 номером +2*a с темже номером;
bk=2*a с к-1 номером +b с к-1 номером

[Sm1Le]

1) Скопировать Условие на Данную страницу Трудно ?
2) Мне еще там зарегестрироваться ? - Нет СпасибО !

[Impario]

Сообщение от Sm1Le

1) Скопировать Условие на Данную страницу Трудно ?
2) Мне еще там зарегестрироваться ? - Нет СпасибО !

Я добавил плиз Поглядите

[Sm1Le]

a1=b1=1;
ak=3*b с к-1 номером +2*a с темже номером;
bk=2*a с к-1 номером +b с к-1 номером;

То что подчеркнуто не понятно ... То ли я тормоз толи написано не понятно, а что с программой не правильно считает ?? или ошибка ?

[Sm1Le]

for k:=2 to n do
begin
for k:=n to k-1 do

Мне кажется чтотут ошибка однако ... Ты сразу в двух циклах исп. один и тот же параметр..

[Impario]

с к-1 номером в цикле!!!

[Sm1Le]

program Project2;
var
i,k,A,B,Ak,Bk:integer;;
begin
A:=1;
B:=1;
Write('BBeguTe K= ');
Readln(K);
for i:=2 to K do
  begin
  Ak:=3*B+2*A;
  Bk:=2*A+B;
  A:=Ak;
  B:=Bk;
  end;
writeln('Ak=',Ak:6:2);
writeln('Bk=',Bk:6:2);
end.

незнаю что там у тебя получилось Но у меня вот что ...

[Impario]

СПС боьшое ты боьшой знаток