Begin 3 даны стороны прямоугольника a и b найти его площадь s =ab и периметр P=2(ab)

Question

Begin 3 даны стороны прямоугольника a и b найти его площадь s =ab и периметр P=2(ab)

Answer 1

Var
a, b, s, p: integer;

begin
read(a, b);
s := a*b;
p := 2 * (a+b);
println('Периметр: ');
println(p);
println('Площадь: ');
print(s);
end.