Var
a,b,c:real;
begin
Write('Сколько кг клубники собрали обе девочки? '); Read(a);
Write('Сколько кг клубники собрала Вера? '); Read(b);
c:=a-b; { собрала Валя }
if b>c then Writeln('Вера собрала на ',b-c,' кг больше')
else
if c>b then Writeln('Валя собрала на ',c-b,' кг больше')
else Writeln('Клубники собрано поровну')
end.
Пример
Сколько кг клубники собрали обе девочки? 3.4
Сколько кг клубники собрала Вера? 1.8
Вера собрала на 0.2 кг больше