vasiliy722001

Verified answer

Var a,b,c,d:integer;
begin
Writeln ('Введите длину прямоугольника');
readln (a);
Writeln ('Введите ширину прямоугольника');
readln (b);
c:=(a+b)*2;
d:=a*b;
Writeln ('Периметр равен',с,'Площадь равна',d);