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

Uses crt; 
var a, b, S, P:integer;
begin
write('a='); readln(a);
write('b='); readln(b);
S:=a*b; P:=2*(a+b);
write('S=',S,' ','P=',P);
end.