var S, p, a, b: real; begin   writeln('Введите периметр прямоугольника');   readln(p);   writeln('Введите одну из сторон прямоугольника');   readln(a);   b:=(p-2*a)/2;   s:=a*b;   writeln('Площадь прямоугольника равна ', s); end.