Напишите программу по блок-схеме (Паскаль)

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:=B;
if C   M:=C;
P:=(A*B*C)/M;
Write('P = ',P);
end.