Pascal :

var a,b:integer;
begin
readln(a);
writeln(a*4);
end.