Напишите программу , которая вычисляет площадь и периметр прямоугольника по двум его сторонам. 

var    a, b: real;begin    readln(a, b);    writeln('S=', a * b);    writeln('P=', 2 * (a + b));end.