Написать текст программы _______________________

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.

include lt;iostreamgt;

int main()

    int A, B;
    setlocale(LC_ALL, "RUSSIAN");
    std::cout lt;lt; "Введите A gt;gt; ";
    std::cin gt;gt; A;
    std::cout lt;lt; "Введите B gt;gt; ";
    std::cin gt;gt; B;

    std::cout lt;lt; "Сумма A+B: " lt;lt; A + B lt;lt; std::endl;
    std::cout lt;lt; "Разность A-B: " lt;lt; A - B lt;lt; std::endl;
    std::cout lt;lt; "Разность B-A: " lt;lt; B - A lt;lt; std::endl;
    std::cout lt;lt; "Умножение A*B: " lt;lt; A*B lt;lt; std::endl;
    if ((A != 0) amp;amp; (B != 0))
    
        std::cout lt;lt; "Деление A/B: " lt;lt; A / B lt;lt; std::endl;
        std::cout lt;lt; "Деление B/A: " lt;lt; B / A lt;lt; std::endl;
    
    system("pause");