Объяснение:
числа дай решать нечего
PascalABC.NET
begin
var (a, b) := ReadInteger2('Введите a, b:');
print('S =', a * b, newline + 'P =', 2 *(a + b))
end.
