Question

fie x si y lungimea​

Answer 1

Program P1;

var x,y,a,p : integer;

begin

readln (x,y);

p:=2*(x+y);

a:=x*y;

writeln (p);

writeln (a);

end.