Напишите программу , которая вычисляет площадь и периметр прямоугольника по длинам двух его сторон
Program n1; var a,b: real; begin write('a='); readln(a); write('b='); readln(b); writeln('S=',a*b); writeln('P=',(a+b)*2); end.