См скриншот
==================================
Присвоить - это двоеточие и равно :=
Такое может быть ,если попробовать перевести эти данные в какую либо систему счисления. Допустим, что все эти числа представлены в двоичной СС.Переведем их в десяятичную :
100-число 4
1000-число 8
1111-число 15
1001-число 9
Тогда получается, что у меня 4 брата, младшему 8лет, а старшему 15. Старший учится в 9 классе. Такое имеет место быть
Var ar:array[1..10] of integer;
s,i:integer;
begin;
for i:=1 to 10 do
begin;
readln(ar[i]);
if ar[i]>0 then s:=s+ar[i];
end;
writeln(s);
end.
Все сложить и разделить на 1000 . 6