Помогите решить задания по информатике!

PascalABC:var A, B, M, y : real; begin Write ( ' A = '); ReadLn (A); Write ( ' B = '); ReadLn (B); Write ( ' M = '); ReadLn (M); if (M = 0) then Y := 0 else if (M < 0) then y := (A + B) else y := (A + B + M); WriteLn ( ' y = ', y:5:3); WriteLn; end.