Нужно написать на языке паскаль, ​

Поправьте пути на верные самостоятельно. скрины во вложениях, файлы тоже

static void Main(string[] args)

       {

           //Вытаскиваем фамилии в массив lastnames

           string file1 = "C:\\Desktop\\lastname.txt";

           StreamReader rd1 = new StreamReader(new FileStream(file1, FileMode.Open), System.Text.Encoding.Default);

           string lastname = "";

           lastname = rd1.ReadToEnd().Replace("\n", "").Replace("\r", " ");//Считываем строку из файла, удаляя из нее символы переноса строки.

           String[] lastnames = lastname.Split(new char[] { ' ' }, StringSplitOptions.RemoveEmptyEntries);

           //Вытаскиваем номера в массив  

           string file2 = "C:\\Desktop\\num.txt";

           StreamReader rd2 = new StreamReader(new FileStream(file2, FileMode.Open), System.Text.Encoding.Default);

           string number = "";

           number = rd2.ReadToEnd().Replace("\n", "").Replace("\r", " ");//Считываем строку из файла, удаляя из нее символы переноса строки.

           String[] numbers = number.Split(new char[] { ' ' }, StringSplitOptions.RemoveEmptyEntries);

           Console.WriteLine("Введите искомый номер телефона:");

           string numserch = Console.ReadLine();

           //поиск элемента в массиве номеров

           for (int i = 0; i < numbers.Length; i++)

           {

               if (numbers[i] == numserch)

               {

                   Console.WriteLine("Владелец данного номера: " + lastnames[i]);

               }

           }

           Console.ReadLine();

       }

ответ:1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

var

 Chislo, Count, Summa, n: integer;

begin

 Summa := 0;

 Count := 0;

 readln(Chislo);

 while Chislo > 0 do

 begin

   n := Chislo mod 10;

   if odd(n) then  

   begin

     Summa := Summa + n;

     inc(Count);

   end;

   Chislo := Chislo div 10;

 end;

 writeln('Сумма  нечетных цифр числа: ', Summa);

 writeln('Кол-во нечетных цифр числа: ', Count);

 writeln('Среднее арифметическое  нечетных цифр: ', Summa / Count);

end.

Объяснение: