program rectangleArea;

var
perimeter, side, width, length: integer;

begin
writeln${}^{\prime }Entertheperimeteroftherectangle{:}^{\prime }$;
readln$perimeter$;

writeln${}^{\prime }Enterthelengthofonesideoftherectangle{:}^{\prime }$;
readln$side$;

width := $perimeter-2\ast side$ div 2;
length := side;

writeln${}^{\prime }Theareaoftherectangleis{:}^{\prime },width\ast length$;
end.