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

program sum_n_3;

var n, s:integer;

begin

n: = 0; s: = 0;

//Если суммироваться должны только двузначные числа

//то условие можно изменить на while (n<100).

//В приведенном ниже варианте суммируются все

//числа кроме трехзначных

while (abs (n) 999) do

begin

s: = s + n;

write ('Введите число ');

readln (n);

end;

writeln (s)

end.