Var
Sr, ves1, ves2 : real;
Begin
Writeln ('Введите вес 1 подруги');
Readln (ves1);
Writeln ('Введите вес 2 подруги');
Readln (ves2);
Sr:=(ves1+ves2)/2;
Writeln ('средний вес двух подруг: ',sr);
end.
