Question

2. Составить программу, которая запрашивает три
натуральных числа. Если все они оказались
четными, то вычисляет сумму первого и второго
числа, а иначе – сумму второго и третьего числа.​

Answer 1

begin

var (a,b,c):= ReadInteger3('Введите 3 числа: ');

if not Odd(a) and not Odd(b) and not Odd(c) then

 Println('Сумма первых двух: ', a+b)

else

 Println('Сумма двух последних: ', b+c);

end.