Завдання 2

Взявши за зразок код програми для обчислення периметра квадрата

program project1;

var a,p:real;

begin

  Write('Enter the length of the side of the square: a=');

  Readln(a);

  p:=4*a;

  Writeln('The perimeter of the square P=',p:7:2);

  Readln;

end. 

Написати програму для обчислення периметра прямокутника.