На токарном станке работало три токаря, первый за смену изготовил m деталей, второй на 45% меньше первого, а третий сколько первый и второй вместе. Вывести сколько изготовил каждый токарь и сколько вместе

Var m, m2, m3: integer;

begin

readln (m) ;

m2:=round (m-0.45*m) ;

m3:=m+m2;

writeln ('1: ', m,', 2: ', m2,', 3: ', m3,', вместе: ', m+m2+m3) ;

end.

Пример:

20

1: 20, 2: 11, 3: 31, вместе: 62

1) 2*8=16 (дет.) - на столько больше изготовил за смену 1-ый токарь2) 90-16=74 (дет.) - изготовили бы за смену оба токаря, если бы работали с производительностью 2-ого3) 74:2=37 (дет.) - изготовил 2-ой токарь за смену4) 37+16=53 (дет.) - изготовил за смену 1-ый токарьОтвет: за смену первый токарь изготовил 53 детали, а второй - 37 деталей