Логики, не шарю совсем за неё смотрите прикреплённые файлы. эта фигня на зачёт. кто может. только с полным решением

Алгоритм оказания первой , что при оказании первой вам ничего не угрожает и вы не подвергаете себя опасности.обеспечить безопасность пострадавшему и окружающим (например, извлечь пострадавшего из горящего автомобиля).проверить наличие у пострадавшего признаков жизни (пульс, дыхание, реакция зрачков на свет) и сознания. для проверки дыхания необходимо запрокинуть голову пострадавшего, наклониться к его рту и носу и попытаться услышать или почувствовать дыхание. для обнаружения пульса необходимо приложить подушечки пальцев к сонной артерии пострадавшего. для оценки сознания необходимо (по возможности) взять пострадавшего за плечи, аккуратно встряхнуть и задать какой-либо вопрос.

Первый вариант: var a,s: longint; begin s: =0; write('введите пятизначное число: '); readln(a); s: =s+(a div 10000) + (a div 1000) mod 10 + (a div 100) mod 10 + (a div 10) mod 10 + (a mod 10); write('s = ',s); end. второй вариант: var     a: longint;     s,i: integer; begin s: =0; write('введите пятизначное число: '); readln(a); for i: = 1 to 5 do       begin       s: =s+a mod 10;       a: =a div 10;       end; writeln('s = ',s); end.