Integers are entered from the keyboard until a three-digit number is entered.

Integers are entered from the keyboard until a three-digit number is entered. Find the sum of the entered numbers, except for the last one. Paskal.

program sum_n_3;
var n, s: integer;
begin
n: = 0; s: = 0;
// If only two-digit numbers should be added
// then the condition can be changed to while (n <100).
// The option below sums up all
// numbers other than three-digit numbers
while (abs (n) <100) or (abs (n)> 999) do
begin
s: = s + n;
write (‘Enter a number’);
readln (n);
end;
writeln (s)
end.