Вариант 2.нетисел в1. Напишите программку, которая в последовательности естественных чисел

Задание 1

1. var
2.    i, N, inputNumber, max: integer;
3. begin
4.    Write('Введите количество чисел: ');
5.    Readln(N);
6.    
7.    for i := 1 to N do
8.        begin
9.            Write('Введите число: ');
10.            Readln(inputNumber);
11.            
12.            if (inputNumber mod 10 = 7) then
13.                if (inputNumber gt; max) then
14.                    max := inputNumber;
15.        end;
16.    
17.    if (max = 0) then
18.        Write('В последовательности нет чисел, заканчивающихся на 7')
19.    else Write('Наибольшее число, заканчивающееся на 7: ', max);
20. end.

Задание 2

1. var
2.    i, N, inputNumber, sum: integer;
3. begin
4.    Write('Введите количество чисел: ');
5.    Readln(N);
6.    
7.    for i := 1 to N do
8.        begin
9.            Write('Введите число: ');
10.            Readln(inputNumber);
11.            
12.            if (inputNumber mod 10 = 3) then
13.                sum := sum + inputNumber;
14.        end;
15.    
16.    if (sum = 0) then
17.        Write('В последовательности нет чисел, заканчивающихся на 3')
18.    else Write('Сумма чисел, оканчивающихся на 3: ', sum);
19. end.

Задание 3

1. var
2.    i, N, inputNumber, valueOfNumbers: integer;
3. begin
4.    Write('Введите количество чисел: ');
5.    Readln(N);
6.    
7.    for i := 1 to N do
8.        begin
9.            Write('Введите число: ');
10.            Readln(inputNumber);
11.            
12.            if ((inputNumber mod 10 = 4) and (inputNumber mod 3 = 0)) then
13.                valueOfNumbers := valueOfNumbers + 1;
14.        end;
15.    
16.    if (valueOfNumbers = 0) then
17.        Write('В последовательности нет чисел, заканчивающихся на 4 и кратных 3-м')
18.    else Write('Сумма чисел, заканчивающихся на 4 и кратных 3-м: ', valueOfNumbers);
19. end.