Составить программу, которая вычисляет периметр прямоугольника со сторонами a, b ,c.

program perim;var a,b,c,p:real;beginwrite ('Вычисление периметра прямоугольника');writeln ('Введите сторону a:', a);writeln ('Введите сторону b:', b);writeln ('Введите сторону c:', c);p:=a+b+c;readln ('Периметр прямоугольника равен:', p);end.