Хотя бы:
X - механика
Y - {кинематика, динамика, статика}
Аня математика
Саша География
Лена История
Вася Литература
Миша Информатика
Var a,s:integer;
begin
read(a);
while a<>0 do
begin
if (a>=10)and(a<=99)and(a mod 8 = 0) then s:=s+a;
read(a);
end;
writeln(s);
<span>end.
Пример:
123 16 468 87 12 88 536 0
<span>104</span></span>
<span><span><span> компьютер выполняет вычисления, если он включен.
2. если компьютер включен, то можно на нем работать.
3. принтер не будет работать, если его установить.
4. видеоадаптер служит для управления отображением информации</span>
</span></span>