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.