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

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