program Perimetr;
var
D : integer;
begin
writeln('Dlina storon: ');
read(D);
D := 3 * D;
writeln('Otvet',D);
end;
program Perimetr;
var
D : integer;
begin
writeln('Dlina storon: ');
read(D);
D := 3 * D;
writeln('Otvet',D);
end;