Написать программу, которая в последовательности натуральных чисел находит количество чисел, превосходящих 100. На вход программы подаются натуральные числа, не превосходящие 1000, количество их неизвестно и не превышает 3000. Ввод чисел прекращается вводом отрицательного числа (это число в последовательность не входит). Программа должна вывести только одно число – количество чисел, превосходящих 100.

var n, s : integer;begins := 0;while 2 * 2 <> 5 do beginreadln(n);if n < 0 then break;if n > 100 then s := s + 1;end;writeln(s);end.