// PascalABC.NET 3.3, сборка 1583 от 25.11.2017// Внимание! Если программа не работает, обновите версию!begin var (a,b):=ReadReal2('Введите два числа через пробел:'); var (s1,p1):=ReadReal2('Введите через пробел из сумму и произведение:'); var (s2,p2):=(a+b,a*b); if s1=s2 then Writeln('Сумма верна') else Writeln('Сумма не верна, ',s2); if p1=p2 then Writeln('Произведение верно') else Writeln('Произведение не верно, ',p2)end.
ПримерВведите два числа через пробел: 1.4 -2.5Введите через пробел из сумму и произведение: -1.1 -3.25Сумма вернаПроизведение не верно, -3.5