Program enota; 
 
  Var f1, f2, f3: integer;
  m1, m2, m3, averageF, averageM: real;
  
begin

F1 := 50; 
M1 := 8360/190;

F2 := 45;
M2 := 9360/180;

F3 := 60;
M3 := 9250/185;

AverageF := (f1+f2+f3)/3;
AverageM := (m1+m2+m3)/3;

Writeln('За февраль в среднем продано: ', averageF:4:2, ' тонн.');

Writeln('За март в среднем продано: ', averageM:4:2, ' тонн.');
end.