Склавиатуры вводятся целые числа до тех пор пока не введенно трехзначное число.найдите сумму введенных чисел, кроме последнего.paskal.

Var  a, s, m: integer;
begin 
while m < 5 do   begin   
 read(a);     
s := s + a;   
if (a div 100 > 0) and (a div 100 < 10) then m := 5;    
end; 
writeln(s-a);
end.