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

program sum_n_3;var n, s:integer;beginn:= 0;s:= 0;//Если суммироваться должны только двузначные числа//то условие можно изменить на while (n<100).//В приведенном ниже варианте суммируются все //числа кроме трехзначных while (abs(n) < 100) or (abs(n) > 999) do begins:= s + n;write(\'Введите число \');readln(n);end;writeln(s)end.