var a,b,perimetru,arie:integer;
begin
write ('Type a: ');
readln (a);
write ('Type b: ');
readln (b);
perimetru :=2*a+2*b;
aria:=a*b;
writeln ('Avem nevoie de ', perimetru,' metrii');
writeln ('Suprafata terenului este de ' ,aria ,'metrii patrati ');
end.