Дайте экономико-географическую характеристику Казахстана

Program asd;
USES crt;
var i,n,s:integer;
BEGIN
n:=2;
While s<100   do   
 begin
    n:=n*2; 
    s:=n;       
Writeln(s);
 end;
end.