где ошибка?? начинаю только программировать не понимаю пока что все

[Юра0037]

program n1;
var c,i,a:integer;
begin
c:=0;
i:=3;
while i<=7 do begin
c:=c+(i div 3);
i:=i+1;
end.

[type_Oleg]

Сообщение от Юра0037

c:=c+(i dir 3);

Кто такой dir ? Может быть div ?

И перед end. должен быть end; , который закрывает begin, который у while
То есть, для каждого begin должен быть end