var
  s1, p, d, vsego: real;

begin
  write('Введите площадь, убранную в первый день (s1) - ');
  readln(s1);
  write('Введите площадь, на которую территория, убранная во второй день, меньше убранной в первый (P) - ');
  readln(p);
  write('Введите оставшуюся для уборки площадь (D) - ');
  read(d);
  vsego := 4 * s1 - p * 2 + d;
  writeln('Общая площадь уборки - ', vsego);
end.