{* Задача 123 *}

Unit ZADACH123;
Interface
Implementation
Begin
 writeln('Определить сколькими различными способами можно подняться на десятую ступеньку, если за шаг можно подняться следующую или через одну. ');
End.

Program pas13493;

Uses zadach123.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* Объявление переменных *}
  i : shortint;
  k : Array [1..10] Of shortint;
Begin
  clrscr; {* Очистка экрана *}
  k[1] := 1;
  k[2] := 2;
  For i := 3 To 10 Do {* Цикл для i => [3 .. 10] *}
    k[i] := k[i - 1] + k[i - 2];
  write('Число путей : ', k[10]);
  readln; {* Ждем нажатия Enter *}
End.