program lab7_zadanie1_1 var integer real begin ln while 1000 do begin

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
program lab7_zadanie1_1;
var i:integer;
x,s:real;
begin
i:= 1;
s:= ln(2);
while x<=1000 do begin
x:= exp(i*s);
i:= i+1;
end;
writeln('2 in ',i-1,' = ',x:0:0);
readln();
end.