Подчеркните однозначно верные утверждения для данного условия и диаграммы.​

Подробных требований нет, поэтому один из простых вариантов такой:
<FORM>
Число:
<input type="text" size="10" name=number>
<P>
<input type="button" value="Проверить" 
       onclick="if (number.value % 2)
         ans.value=number.value+'-нечетное';
         else ans.value=number.value+'-четное'"">
<input type="text" size="10" name=ans>
<P>
<input type="reset" value="Очистить">
</FORM>

Текст набрать в блокноте и сохранить с расширением html. Затем открыть в браузере.

                                     PascalABC.NET                                       beginvar n := ReadInteger('Введите количество резисторов:');var Rs := ReadArrInteger('Введите их сопротивления:',n);Writeln(NewLine, 'Общее сопротивление цепи равно:');Println(' при последовательном соединении -', Rs.Sum,'Ом');Println(' при параллельном соединении -', 1/Rs.Sum(r->1/r),'Ом');end.

или кратко:

beginvar Rs := ReadArrInteger(3);Println('послед:', Rs.Sum);Println('парал:', 1/Rs.Sum(r->1/r));end.

Пример работы: