Составить программу на языке Pascal, которая позволяет ввести два числа. Если оба числа положительные, то вычислить их сумму, иначе произведение.

Можете глянуть ещё эти две задачи?

https://znanija.com/task/29157606

https://znanija.com/task/29226433

PascalABC.NET 3.3.5, сборка 1669 от 21.05.2018Внимание! Если программа не работает, обновите версию!begin  var (a,b):=ReadReal2('Введите через пробел два числа:');  If (a>0) and (b>0) then Writeln(a+b) else Writeln(a*b)end.