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.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.