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

Var
a, b, s, p: integer;

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