Проверить прогу

[Рітка-кулеметчиця]

Дана непустая последовательность целых чисел, окан-
чивающаяся числом 100. Определить, есть ли в последова-
тельности число 77. Если имеются несколько таких чисел,
то определить порядковый номер первого из них.
var a:integer;
i:integer;
begin
i:=0;
repeat
read(a);
i:=i+1;
until (a=77)or(a=100) do
if a=77 then writeln(i)
else writeln('NO');
end
Она перед do просит ";"
а если поставить там";" то викидает на екран "Error in statement"

[KORN]

а если так

repeat
read(a);
i:=i+1;
until (a=77)or(a=100);
if a=77 then writeln(i)
else writeln('NO');
end;

[capta1n]

do после конструкции repeat..until не нужно - его убираете и ставите ; - вообще программа по условию выглядит так:

var
a,i,k : integer; {a - число в последовательности; i - счетчик последовательности; k - номер первого числа 77}
flag : boolean; { Фиксирует первый член, равный 77 }
begin
  flag:=false; { Ложное условие наличия числа 77 }
  i:=0; { счетчик }
  repeat { Повторяем }
    readln (a); { Читаем очередной член последовательности }
    i:=i+1; { Счетчик увеличиваем на 1 }
    if (not flag) and (a=77) then { Если члена 77 еще не было, а введенный только что член равен 77, то записываем
   его номер и ставим условие, что член 77 найден и он под k номером }
    begin
      k:=i;
      flag:=true
    end
  until a=100; { Вводим числа до тех пор, пока "а" не будет равно 100}
  if flag then writeln ('a=77 na ',k,' meste') { Если было зафиксировано наличие члена, равного 77 - то выводим сообщение }
  else writeln ('Net a=77'); { Иначе выводи сообщение об его отсутствии }
  readln
end.

[Рітка-кулеметчиця]

усли не трудно опиши кажде действие

[Рітка-кулеметчиця]

что делает оператор "clrscr"

[alex_fcsm]

Очищает окно