Ответ:

Код Pascal1 var a:integer;2 begin3 readln(a);4 writeln(a*2*2*2*2*2*2)5 end.