Составить программу Pascal turbo

  
program PowersOfTwo; 
var 
  n, i: integer; 
  number: longint; 
begin 
  writeln('Введите число n (n > 0):'); 
  readln(n); 
   
  if n > 0 then 
  begin 
    number := 1; 
    i := 0; 
     
    while i <= n-1 do 
    begin 
      write(number, ' '); 
      number := number * 2; 
      i := i + 1; 
    end; 
  end 
  else 
    writeln('Ошибка: n должно быть больше 0'); 
     
  readln; 
end. 
 

 program PowersOfTwo;  
 
  
 
var  
 
    n, i: Integer;  
 
    currentPower: LongInt;  
 
  
 
begin  
 
    // Запрашиваем у пользователя значение n  
 
    Write('Введите значение n (n > 0): ');  
 
    ReadLn(n);  
 
  
 
    // Проверяем, что n > 0  
 
    if n <= 0 then  
 
    begin  
 
        WriteLn('Ошибка: n должно быть больше 0.');  
 
        Exit;  
 
    end;  
 
  
 
    // Инициализируем переменную для хранения текущей степени двойки  
 
    currentPower := 1;  
 
  
 
    // Выводим степени двойки от 0 до n  
 
    WriteLn('Числа вида 2^k (0 <= k <= ', n, '):');  
 
    for i := 0 to n do  
 
    begin  
 
        Write(currentPower, ' ');  
 
        currentPower := currentPower * 2; // Увеличиваем степень двойки  
 
    end;  
 
  
 
    WriteLn; // Переход на новую строку после вывода  
 
end.