Ввести два числа. если сумма этих чисел четная, найти произведение, в противном случае, найти частное этих чисел.

var

    a, b: integer;

begin

    readln(a, b);

    if (a + b) mod 2 = 0 then

        writeln(a * b)

    else

        writeln(a / b);

end.

1. utfa.fps

2.какую программу?

3. x(n)=5n²-4n-1

xn-нечётное тогда, когда n-чётное

x(0)=-1

x(2)=11

x(4)=63

x(6)=155

x(8)=287

x(10)=459

x(12)=671

x(14)=923

x(16)=1215

x(18)=1547

x(20)=1919 

сумму чисел один,два,три,четыре,пять разделить на разность чисел 10 и 7.равно пяти.