Составить программу для вычисления числа 264— 1, в результате сохранить все цифры.

var  a,b,c,i: byte;  s: uint64;begin  a:=2;  b:=64;  c:=1;  s:=1;  i:=1;  while i <= b do begin    s:=s*a;    i:=i+1;  end;  s:=s-c;  writeln(s);  readln;end.