<span>Ответ будет таковым :11001 </span>
Var
p: integer;
begin
readln(p);
if p=5 then print('Молодец!')
else if p = 4 then print('Хорошо!')
else if p<=3 then print('<span>Лентяй!</span>')
end.
Открой учебник по окружающему миру, 1 часть, 4 класс. на 56 стр есть картинка.
ну или как то так
<span>Индекс последнего отрицательного элемента массива.
Ответ: 5</span>