Паскаль (информатика)

Question

program vass; 
uses crt; 
var a,x:integer; 
a:=3001; 
repeat 
readln(x); 
if(x mod 3=0) and (x<a)>a; 
end. 
пишит, что повторно объявлен идентификатор а. В чем может быть ошибка?

Дмитрий · Accepted Answer

Где условие выхода из цикла? Что должна делать программа? Чего ты пытаешься добиться этим выражением (x<a)>a?

Руслан Зайцев · Answer

не совсем понятно что это: (x<a)>a что с чем сравнивается? не на эту строку ругается компилятор?

Эльдар · Answer

сначала попробуй завершить логический оператор if ...then ...else

Виталий Старостин · Answer

begin пропустил между 
var a,x:integer; 
и 
a:=3001;

Маша Иванова · Answer

А где begin после блока var? =)