program laba2_1;
uses
   System.SysUtils;
var
   isCorrect: Boolean;
   s: extended;
   intVar : integer;
begin
   isCorrect := false;
   repeat
      writeln('Введите натуральное число');
      try
         readln(intVar);
         isCorrect := true;
      except
         writeln('Введены некоректные данные! Повторите!');
         isCorrect:=false;
      end;
   until isCorrect;
   if (intVar > 0 ) then
   begin
      s:= exp(intVar*ln(2));
      writeln(' Итог ', s:7:3 ,'')
   end
   else
      writeln('Введено не натуральное число');
   readln;
end.