Составить и записать программу: вычисляющу по 2ум значения сторон прямоугольника его площадь и периметр (результат программы должен быть оформлен в виде: площадь прямоугольника .см периметр прямоугольника равен..см

var a,b,p,s:integer;

begin

writeln("Введите а: ");

readln(a);

writeln("Введите b: ");

readln(b);

p = 2*(a+b);

s = a*b;

writeln("Площадь прямоугольника равна: ",s," кв.см");

writeln("Периметр прямоугольника равен: ",p," см");

readln;

end.