Răspuns:
Program P1;
uses Crt;
var x, y, z, w: integer;
begin
clrScr;
writeln('Introduceti lungimea si latimea dreptunghiului: '); readln(x, y);
z := a * b;
w := 2*(x + y);
writeln('Aria dreptunghiului este: ', z);
writeln('Perimetrul dreptunghiului este: ', w);
readln;
end.
Explicație:
Poftim, asta este in Pascal, cred ca tie asta iti trebuie, daca nu e in Pascal, atunci zi in ce limbaj de programare este. Nu l-am testat, deoarece nu am Pascal in PC, dar trebuie sa mearga.
