Только основная часть программы:
For i:=1 to 28
do begin
if A[i] mod 2<>0
then A[i]*=2;
end;
вот документ там я формулы вставил можешь посмотреть если кратко описать его то в a1 название продукта в b1 срок годности в c1 результат можно есть или нет там формула =ЕСЛИ(B8<$F$2;"испортилось";"можно есть ") а в f2 время на данный моммент точнее дата и она должна обновляться
Решение в приложении.
Во втором задании высказывания не эквивалентны.
Утверждение, которому всегда можно поставить в соответствие одно из двух логических значений. Логическое высказывание принято обозначать заглавными латинскими буквами.