Var A,B,C,M,P:real;
begin
write('Введите A = ');Readln(A);
write('Введите B = ');Readln(B);
write('Введите C = ');Readln(C);
M:=A;
If B<M Then
M:=B;
if C<M Then
M:=C;
P:=(A*B*C)/M;
Write('P = ',P);
end.
<span>software (программное обеспечение)</span>
Числа: 4 и 5
1) к наименьшему из {4;5} добавить 2 4+2=6 {5;6}
2) большее из чисел {6;5} 6
3) заменить большее разностью 6-5= 1 {1;5}
повтор:
2) большее из {1;5} 5
3)A