Срочно нужна помощь Ввести ряд чисел и сформировать список элементов ряда, кратных 10. Язык программирования Delphi.

19 97 44 95 35 31 17 83 82 87 83 7 72 60 68 70 52 36 16 23
60 70
===========
93 79 17 57 42 66 73 61 36 91 8 50 8 77 57 1 84 89 36 49
50
===========
72 29 26 69 6 95 45 85 70 99 77 89 80 20 85 76 16 50 2 24
70 80 20 50
===========
99 87 53 11 35 64 96 84 37 22 51 56 37 2 5 48 29 46 29 26
net 4isel kratnyx 10
===========
56 73 51 70 25 20 75 36 38 75 59 65 39 33 27 63 66 12 27 66
70 20
===========
21 11 70 47 26 52 4 100 26 2 28 29 52 98 38 31 80 47 18 34
70 100 80
===========
86 46 99 79 92 93 92 31 73 63 62 2 36 69 79 69 7 65 87 78
net 4isel kratnyx 10
===========
31 100 92 61 95 61 74 47 57 37 90 96 54 44 98 4 46 33 52 100
100 90 100
===========
11 47 21 92 66 79 51 47 87 79 88 49 70 86 24 1 62 93 81 18
70
===========
95 62 88 74 94 92 45 93 98 27 29 100 21 53 87 42 78 61 55 85
100
===========
12 88 9 40 37 74 99 57 49 72 23 51 94 79 4 34 94 59 48 69
40
===========
80 2 33 94 21 4 80 21 62 37 41 90 26 64 26 52 11 21 43 68
80 80 90
===========
84 8 97 90 97 14 69 29 45 2 30 90 53 30 16 49 49 42 98 74
90 30 90 30
===========
95 64 81 4 82 100 7 47 15 43 81 44 91 30 95 98 65 32 44 8
100 30
===========
5 27 33 44 95 90 81 21 29 16 37 77 14 25 47 54 83 41 49 24
90
===========
80 4 26 24 9 12 42 75 79 53 92 35 96 41 35 8 98 93 31 91
80
===========
54 88 87 29 50 38 39 85 73 22 53 70 62 53 95 69 16 63 72 40
50 70 40
===========
15 44 22 39 97 89 34 83 54 80 4 75 98 9 55 27 54 37 17 30
80 30
===========
32 69 43 5 40 71 89 47 5 25 97 27 71 35 72 20 69 35 10 14
40 20 10
===========
74 43 50 28 67 29 24 39 60 96 6 61 15 88 78 28 88 75 32 46
50 60
===========
53 89 80 59 38 47 1 39 90 39 4 14 32 30 3 25 3 35 61 64
80 90 30
===========
86 11 77 1 38 94 43 90 35 35 49 4 16 48 63 25 89 43 63 99
90
===========
23 15 46 72 8 56 62 36 8 1 15 41 26 76 32 90 7 75 39 82
90
===========
71 51 22 20 65 6 78 18 99 45 61 94 21 60 3 35 22 4 50 83
20 60 50
===========
24 57 34 20 78 51 10 46 70 94 50 43 50 69 12 23 38 41 7 33
20 10 70 50 50
===========
30 51 50 9 34 45 68 74 4 62 63 79 38 38 26 36 56 42 65 99
30 50
===========
96 76 22 70 38 91 79 17 66 24 57 81 8 21 24 38 94 24 56 38
70
===========
44 12 97 19 95 41 95 99 57 68 3 34 3 4 95 82 10 53 67 39
10
===========
44 37 76 56 94 40 37 82 10 31 73 74 57 48 72 52 27 45 79 55
40 10
===========
3 12 25 7 64 80 85 55 62 85 5 19 20 83 18 83 44 91 82 55
80 20
===========
19 38 46 72 7 62 40 19 13 31 99 71 93 8 36 76 60 89 75 39
40 60
===========
44 14 90 48 83 49 57 53 73 85 54 79 73 81 3 39 97 25 55 62
90
===========
18 98 51 54 24 75 54 63 67 54 15 14 39 93 64 99 15 95 96 11
net 4isel kratnyx 10
===========
3 13 18 36 52 88 47 9 79 1 56 64 90 60 27 40 31 62 71 78
90 60 40
===========
19 39 39 2 94 70 2 73 29 47 50 16 63 85 44 32 46 61 63 62
70 50
===========
71 56 100 9 28 30 65 79 49 94 15 28 30 91 28 4 83 19 16 52
100 30 30
===========
44 40 61 15 69 56 62 89 43 64 76 63 97 2 88 65 1 89 57 1
40
===========
55 96 45 29 55 42 100 8 13 4 26 18 35 2 68 14 16 79 3 35
100
===========

Примерно так (для версий ХЕ3 и выше):

uses System.Generics.Collections;

var List: TList< Integer >; //remove spaces
a: Integer;
begin
List:= TList< Integer >.Create; //remove spaces
repeat
ReadLn(a);
if (a mod 10 = 0) and ( a <> 0) then
List.Add(a);
until a = 0;
end.