Написать програму вычесления площади и периметра прямоугольника , если извесна длина сторон a, b.(всё это дольжно выгледит програмай для паскаль adc)

Var
a,b,P,S:integer;
begin
writeln('Введите а и b');
read(a,b);
S:=a*b;
P:=(a+b)*2;
writeln('Периметр равен = ',P);
writeln('Площадь равна = ',S);
end.