После выключения питания очищается энергозависимая память. В компьютере энергозависимой является <em>оперативная</em> память.
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.