Question

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

Answer 1

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