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

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.