Решите пожалуйста ** языке Паскаль

Question

Решите пожалуйста на языке Паскаль

---

Answer 1

№6
program m;
var
a, max, pupils, i: integer;
ifNoanswer: boolean;
begin
ifNoanswer:=false;
a:=0;

№7 в комментах как только напишу
max:=0;
readln(pupils);
for i:=1 to pupils do
begin
readln(a);
if a>max then
max:=a
else if a=0 then
ifNoanswer:=true;
end;
writeln(max);
if ifNoanswer=false then
writeln('NO')
else
writeln('YES');
end.

Comments

Спасибо)

---

Немного криво условие на "оканчивается ли число на 6"

---

Решение имеет место, но я ещё подумаю как оптимизировать

---

program N7;
var
summa, a: integer;
begin
summa:=0;
repeat
readln(a);
if (a mod 6 = 0) AND ((a mod 1 = 6) OR (a mod 10 = 6) OR (a mod 100 = 6)) then
summa := summa + a;
until a = 0;
writeln(summa);
end.

---

Все равно спасибо)

---

AND (a mod 10 = 6)

---

Чёт затупил