Составить программу нахождения S и P прямоугольника по сторонам a,b.

Question

Составить программу нахождения S и P прямоугольника по сторонам a,b.

Answer 1

Var
  a,b:integer;
Begin
  Write('Введите длину и ширину ');
  Readln(a,b);
  write('S = ',a*b,', P = ', a*2+b*2);
End.

Comments

ty