Данны две стороны прямоугольника. вычислить перимитер и площадь. записать ответ при а: =12, b: =15.

Var a, b : integer;
begin
a := 12;
b := 15;
writeln('Площадь прямоугольника = ', a * b);
writeln('Периметр прямоугольника = ', 2 * a + 2 * b);
end;