Встречено 'until', а ожидалось ','. Что делать?

Question

Встречено 'until', а ожидалось ','. Что делать?

Владимир Играет в реальную жизнь Ученик (105), на голосовании 2 недели назад

Program Z_16;
VAR r,i,a,S:integer;
Begin
S:=0;
readen (n);
FOR i:=1 to n DO BEGIN
readen (a);
IF a mod G=0 then S:=S+a; end;
until (S);
END.

Answer 1

Romb_Vilka Знаток (405) 1 месяц назад

Решать

Answer 2

 Program Z_16; 
VAR  
    r,i,a,S,n,G:integer; 
Begin 
    S:=0; 
    readln(n); 
    readln(G);  // Добавляем ввод G 
    FOR i:=1 to n DO BEGIN 
        readln(a); 
        IF a mod G=0 then S:=S+a; 
    end; 
    writeln(S);  // Добавляем вывод результата 
END.

Answer 3

>Что делать?

Учить английский. Что еще за "readen"?
Учить синтаксис паскаля. until - это часть оператора repeat until. Где твой repeat?
Правильно форматировать код, например - ставить логические скобки на отдельных строках, а не лепить все в одну. А также соблюдать отступы.

Answer 4

Как минимум, проблема в синтаксисе.
Не readen, а readln.
Если у тебя написан until, то должен быть и repeat.