На токарном станке работало три токаря, 1-ый за смену сделал m

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-ый токарьОтвет: за смену 1-ый токарь сделал 53 детали, а 2-ой - 37 деталей