uses crt;
var summa,raz,st:real;
storona1,storona2:real;
begin
ClrScr;
writeln('Введите сумму длин сторон прямоугольника');
readln(summa);
writeln('Введите на сколько одна сторона больше другой');
readln(raz);
st:= (summa - raz) / 2;
storona1:= st;
storona2:= st + raz;
write ('ширина-',storona1:7:2,'см.');
write ('длина-',storona2:7:2,'см.');
end.