求魔法力

{求魔法力
每个魔法学徒的魔法力是不同的，
试编写一个程序，从键盘读入每个学徒的魔法力，
求全部魔法学徒的魔法力总和。当用户输入0时，程序结束。
}
var 
    a: string;
    i,sum : integer;
begin
    read(i);
    while i<>0 do
    begin
        sum := sum + i;
        read(i);
    end;
    writeln(sum);
end.