Заполните пробелы и создайте элемент video:

< ( )controls >

< ( ) src="video.ogg" type="video/ogg/">

REM

SCREEN

LINE(80,280)-(100,180),6,B

LINE(100,260)-(120.240),6,B

LINE(120.240)-(140,220),6,B

LINE(140,280)-(160,180),6,B

LINE(180,280)-(200,180),6,B

LINE(200,200)-(220,180),6,B

LINE(220,220)-(240,200),6,B

LINE(200,240)-(220,220),6,B

LINE(260,280)-(260,180),6,B

LINE(260,260)-(280,240),6,B

LINE(280,240)-(300,220),6,B

LINE(300,280)-(320,180),6,B

LINE(320,280)-(340,180),6,B

LINE(360,240)-(380,220),6,B

LINE(380.280)-(400,180),6,B

LINE(440,280)-(440.200),6,B

LINE(440,240)-(460,220),6,B

LINE(460,280)-(480,200),6,B

 

 

Если считать отрицательные трехзначные, то сумма таких чисел в диапазонах от -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.