Question

1 дано 2 числа а и б. Определить я вляются они положительными.
2 даны два числа а и б целые числа. Напечатать да если сумма >0

Answer 1

// PascalABC.NET

var

a, b: integer;

Begin

WriteLn('Введите два числа');

ReadLn(a, b);

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

  WriteLn('Оба числа являются положительными')

else

  WriteLn('Одно или несколько из введённых чисел не являются положительными');

End.

// PascalABC.NET

var

Sum, a, b: integer;

Begin

WriteLn('Введите два числа');

ReadLn(a, b);

Sum := a + b;

if (Sum > 0) then

  WriteLn('Да');

End.