Гусеница может двигаться по ветке длины n только вперед. длина шага целое число не более к. сколько различных вариантов передвижения, при которых гусеница пройдет по ветке от начала до конца.

Program fordimon; var n,k,i,j: integer; s: array[1..10] of integer; begin assign(input,'task2.txt');   reset(input);   readln(n,k); close(input); assign(output,'task2.out');   rewrite(output); for i: =1 to n doif i< =k then s[i]: =1 else s[i]: =0; for i: =2 to n do begin j: =i-1; while (j> 0) and (j> =i-k) do begin s[i]: =s[i]+s[j]; j: =j-1endend; write(s[n]); close(output) end.

Var a,b,c,d,e,x: integer; begin     readln(a,b,c,d,e);     if {1} a> b then begin x: =a; a: =b; b: =x;   end;     if {2} c> d then begin x: =c; c: =d; d: =x;   end;     if {3} a> c then begin x: =a; a: =c; c: =x; x: =b; b: =d; d: =x; end;     if {4} c> e then         if {5} b> c then             if {6} b> d then                 if {7} a> e then begin x: =e; e: =b; b: =a; a: =x; end                     else begin x: =e; e: =b; b: =x; end                 else                 if {7} a> e then begin x: =e; e: =d; d: =b; b: =a; a: =x; end                     else begin x: =e; e: =d; d: =b; b: =x; end             else             if {6} a> e then begin x: =e; e: =d; d: =c; c: =b; b: =a; a: =x;   end                 else                 if {7} b> e then begin x: =e; e: =d; d: =c; c: =b; b: =x;   end                     else begin x: =e; e: =d; d: =c; c: =x;   end         else         if {5} d> e then             if {6} b> e then                 if {7} b> d then begin x: =e; e: =b; b: =c; c: =x;   end                     else begin x: =e; e: =d; d: =b; b: =c; c: =x;   end                 else                 if {7} b> c then begin x: =b; b: =c; c: =x; x: =e; e: =d; d: =x;   end                     else begin x: =e; e: =d; d: =x;   end             else             if {6} b> d then                 if {7} b> e then begin x: =b; b: =c; c: =d; d: =e; e: =x;   end                     else begin x: =b; b: =c; c: =d; d: =x;   end                 else                 if {7} b> c then begin x: =b; b: =c; c: =x;   end;     writeln;     writeln(a,' ',b,' ',c,' ',d,' ',e); end .

Program pr; - пропущена буква р var a,b,с,: integer; - лишняя запятая begin writeln('введите три целых числа'); read(a,b,c); - ругается на переменную "с". возможно здесь она написана на раскладке.s: =(sqrt((2*a)+(3*(b*b*/(a-c); - пропущена закрывающая скобка + - переменная не описанаk: =(2*(s*s*s**(sqrt(abs(a*b*; - переменная не описанаy: =(6*s)+(2**s*s*s)/(3*a*b*c)); - переменная не описанаwriteln ('получилось число',y); end. после исправления всех указанных ошибок программа начинает работать.