{* Степень двойки от 0 до n *}

Unit PROGRAM CIKL_3;
Interface
Implementation
Begin
 writeln('Выводит степень двойки от 0 до n');
End.

Program cikl_3;

Uses program cikl_3.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* В работе нам потребуются переменные: *}
  s : integer;
  n : integer;
  i : integer;
Begin
  writeln('Vvedite n');
  readln(n);
  s := 1;
  For i := 1 To n Do {* Цикл для i => [1 .. n] *}
  Begin
    s := s * 2;
    writeln('s = ', s);
  End;
  readkey; {* Нажмите любую клавишу *}
End.