решите задачку на Pascale через Integer. ЗадачаНа до возвести 2 в

Код программки приведен ниже и во вложениях.

var  
n: integer;  // степень числа 
res: integer; // итог 
idx: integer; // индекс для цикла
begin
  write('Введите ступень числа: ');
  readln(n);
  res := 1;
  if n lt; 0 then
  begin
    writeln('Степень должна быть неотрицательной.');
    halt(-1); // окончание программки
  end
  else if n gt;= 30 then
  begin    writeln('Переполнение типа Integer.');
    halt(-2);
  end
  else if n gt; 0 then
  begin
    for idx := 1 to n do
      res := res * 2;
  end;
  writeln('Итог возведения 2 в ступень ', n, ': ', res, '.');
end.