Question

Задача
С клавиатуры вводится последовательность натуральных чисел, оканчивающихся числом 0. Количество чисел в последовательности неизвестно.
Программа должна вывести на экран четные числа из этой последовательности, которые не меньше 50.

Помогите пожалуйста :(

Answer 1

Begin

 var a := new Stack<integer>;

 var input:integer;

 Read(input);

 while(input<>0) do

 begin

   if (input mod 2 = 0) and (input > 50) then

     a.Push(input);

   Read(input);

 end;

 a.Println;

end.

Answer 2

===== PascalABC.NET =====

begin

 ReadSeqIntegerWhile(p -> p <> 0).

   Where(p -> p.IsEven and (p >= 50)).Println

end.