Răspuns:
Program AriaPerimetrul;
var a,b,Aria,Perimetru:integer;
begin
write('Lungimea dreptunghi : ");
readln(a);
writeln;
write('Latimea dreptunghi : ");
readln(b);
Aria:=a*b;
Perimetru:=2*(a+b);
writeln('Aria=',Aria);
writeln('Perimetru=',Perimetru);
readln;
end.