Программа для Паскаля найти площадь и периметрарямоугооьника

Program n_1;

var a, b, S, P:integer;

begin

   writeln('Введите стороны прямоугольника a, b через пробел');

   readln(a, b);

   S:=a*b;

   P:=(a+b)*2;

   writeln('Площадь прямоугольника одинакова ', S);

   writeln('Периметр прямоугольника равен ', P);

end.