Найти произведение вторых цифр у двух натуральных четырехзначных чисел. в паскале

begin

 var (first, second) := readinteger2;

 write((first div 100 mod 10) * (second div 100 mod 10));

end.

Объяснение:

begin  // Начало программы

 var (first, second) := readinteger2;  // Считываем числа с клавиатуры

 write((first div 100 mod 10) * (second div 100 mod 10));  // Вывод ответа.

Разберем на примере:

Числа: 1234, 5678

div 100 - целочисленное деление

Получаем:

1234 div 100 = 12

5678 div 100 = 56

mod 10 - остаток от деления

12 mod 10 = 2

56 mod 10 = 6

end. // Конец программы