Найти произведение первой и третьей цифры пятизначного числа

100 020 000

Объяснение: Первое число - 10.000 а второе 10.002 Так как первое - 10.000 второе- 10.001 ну и третье 10.002    Надеюсь

PascalABC.NET

begin

   var n := ReadInteger;

   Println(n div 10000 * ( n div 100 mod 10))

end.

Сейчас в мире развиваются новые технологии. Сейчас книги не пишут в ручную, а печатают на компьютере. Нам сложно прожить без интернета "каждый день мы ищем там интересную информацию, узнаем новое, смотрим фильмы, учимся".Кто то зарабатывает в интернете. Мне кажется что информатику нужно изучать для того чтобы в будущем мы были развиты в компьютерных технологиях и умели работать за компьютером. Потому что учителя, работники офисов, врачи и еще много профессий зависят от компьютеров, а информатика учит нас быть с компьютерами на ты.
.
P.S. писал сам)

//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)

1)
begin
  var a:=ReadString('Введите слово->').ToLower;
  Println(a=ReverseString(a)?'Перевертыш':'Не перевертыш');
end.

Пример(1):
Введите слово-> Комок
Перевертыш 

Пример(2):
Введите слово-> Револьвер
Не перевертыш 

2)
begin 
  var a:=ReadInteger('Число-> ');
  Range(1,a).Where(t->a mod t=0).Println;
end.

Пример:
Число-> 100
1 2 4 5 10 20 25 50 100

3)
begin 
  for var i:=2 to 10000 do
  begin
    var a:=Range(1,i-1).Where(t->i mod t=0).Sum;
    if a=i then Write(i,' ');
  end;
end.

ответ:
6 28 496 8128