Компьютерная модель (Язык программирования Turbo Pascal) Program smesi, var a,b,c,p,ka,kb: integer, pac, pbc: real, begin writeln (введите пробу 1 го вещества),readln(a), writeln (введите пробу 2 го вещества),readln(b), writeln (введите пробу смеси),readln(c), writeln (введите вес(объём) смеси),readln(p), if (a>,=0)and(b>,=0)and(c>,0)and((c<,a)or(c<,b)) then begin if (b>,a) and (c<,b) and (a<,c) then begin ka:=b-c, kb:=c-a end else if (a>,b) and (a>,c) and (c>,b) then begin ka:= c-b, kb:=a-c, end, pac:=p*ka/(ka+kb), pbc:=p*kb/(ka+kb), writeln (1 вещества нужно взять ,ka, части или ,pac:5:2,ф), writeln (2 вещества нужно взять ,kb, части или ,pbc:5:2,ф) end else writeln (Нет решений), readln end.