PascalABC.NET 3.2 (сборка 1467 от 02.06.2017)
Begin
(Var A,Var B):=(ReadReal('A ='),ReadReal('B ='));
WriteLn('A + B = ',A+B);
WriteLn('A - B = ',A-B);
WriteLn('B - A = ',B-A);
WriteLn('A * B = ',A*B);
WriteLn('A / B = ',A/B);
WriteLn('B / A = ',B/A);
End.