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

Question

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

Answer 1

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.