Составить программу вычисления

Если считать отрицательные трехзначные, то сумма таких чисел в диапазонах от -999 до -100 и от 100 до 999 будет равна 0. Для только положительных:

//c циклом for
var s,i:integer;
begin
  for i:=100 to 999 do
    if i mod 77 = 0 then s:=s+i;
  writeln('Сумма трехзначных кратных 77: ',s);
end.

Тестовое решение:
Сумма трехзначных кратных 77: 5929

// с циклом while
var s,i:integer;
begin
  i:=100;
  while i<=999 do begin
    if i mod 77 = 0 then s:=s+i;
    i:=i+1;
  end;
  writeln('Сумма трехзначных кратных 77: ',s);
end.

1.Измерение цвета.

2.При определении красного цвета.

3.Добавление вкладок.

4.Желтый, синий.

5.Синий-движение вперед. зеленый-движение назад. желтый-поворот налево. красный-поворот направо.

6.Синий-выводит линию на монитор. зеленый-выводит круг на монитор. желтый выводит прямоугольник на монитор. красный выводмт точку на монитор.

7.Начало-движение вперед 5 оборотов-если поле красного цвета движение вперед 1 оборот, в противном случае движение назад 1 оборот-поворот направо-издание звука.

8.Блок со звуком во вкладку крестиком, блок движения вперед во вкладку с галочкой.

9.Датчик касания, датчик цвета.