var a, b:integer;
begin
readln(a, b);
writeln('Площадь: ', a*b);
writeln('Периметр: ', 2*(a+b));
end.
Объяснение:
var a, b:integer;
begin
readln(a, b);
writeln('Площадь: ', a*b);
writeln('Периметр: ', 2*(a+b));
end.
Объяснение: