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

Var a,b: Integer;
begin
writeln('Введите a и b');
readln(a,b);
writeln('S=a*b=',a*b);
writeln('P=2*(a+b)=',2*(a+b));
end.