Program dlya_Olesyaalekseev; var a,b,c,m:real; begin writeln ('Введите число амёб =>'); read (a); b:=((24/3)*2)*a; writeln ('В итоге клеток: ', b); end.