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

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