1)
program p1;
var perimetru,aria,lungimea,latimea:integer;
begin
writeln('dati lungimea si latimea'); readln(lungimea,latimea);
perimetru:=(lungimea+latimea)*2;
aria:=lungimea*latimea;
writeln('perimetrul este: ',perimetru);
writeln('aria este: ',aria);
end.