Даны два числа а и в. найти их произведение, если оба числа положительные, иначе найти сумму.

Var
i :integer;
a,b :real;
begin
write('Введите число А: ');readln(a);
write('Введите число B: ');readln(b);
if ((a>0) and (b>0)) then write(a*b)
else write(a+b);
readln;
end.

В пе­ре­мен­ной s сум­ми­ру­ют­ся раз­но­сти эле­мен­тов, иду­щих друг за дру­гом. Для того, чтобы s была наи­мень­шей после вы­пол­не­ния про­грам­мы, не­об­хо­ди­мо, чтобы раз­ность эле­мен­тов была наи­мень­шей. По­сколь­ку мас­сив це­ло­чис­лен­ный, наи­мень­шая раз­ность равна еди­ни­це. Ал­го­ритм об­ра­ба­ты­ва­ет пер­вые де­сять эле­мен­тов мас­си­ва, сле­до­ва­тель­но, наи­мень­шее зна­че­ние, ко­то­рое может иметь пе­ре­мен­ная s после вы­пол­не­ния дан­ной про­грам­мы, равно 27 + 10 · 1 = 37. ответ: 37.

В пе­ре­мен­ной s сум­ми­ру­ют­ся раз­но­сти эле­мен­тов, иду­щих друг за дру­гом. Для того, чтобы s была наи­мень­шей после вы­пол­не­ния про­грам­мы, не­об­хо­ди­мо, чтобы раз­ность эле­мен­тов была наи­мень­шей. По­сколь­ку мас­сив це­ло­чис­лен­ный, наи­мень­шая раз­ность равна еди­ни­це. Ал­го­ритм об­ра­ба­ты­ва­ет пер­вые де­сять эле­мен­тов мас­си­ва, сле­до­ва­тель­но, наи­мень­шее зна­че­ние, ко­то­рое может иметь пе­ре­мен­ная s после вы­пол­не­ния дан­ной про­грам­мы, равно 27 + 10 · 1 = 37. ответ: 37.