Question

1
Даны два числа если они положительные , то сложить их,
иначе перемножить. Нужно написать на паскаль.

Answer 1

program nen;

var

 a,b :real;

 begin

   readln(a,b);

   if (a>0) and (b>0) then

     write('Сумма чисел равна ', a + b)

   else

     writeln('Произведение чисел равно ', a *b);

 end.