Где ошибка в паскаль

Question

program p3; 
uses crt; 
var a,b,c,s: integer; 
begin 
read (a); 
while a<>0 do begin; 
b:=(a mod 10); 
s:=s + b; 
a:=(a div 1); 
end; 
Writeln ('Сумма целых чисел',S)

Программа пишет "Ожидался оператор"

Нашел, после Writeln ('Сумма целых чисел',S) надо написать end.

Шурик Московский · Accepted Answer

После бегин не нужна точка с запятой

Ольга · Answer

И переменная "С" тебе нафиг не упала) Лишние 4 байта памяти в попу)) ) Но это не ошибка, а warning скорее))

Олег Павловский · Answer

в строке while a<>0 do begin; точка с запятой не нужна, т. к. begin указывает на начало цикла, а после первого begin она по моему нужна) но это все по логике, с паскалем давно не сталкивался)