Ответ:
Путешествие одно из самых любимых занятий большинства людей. Почему многие так любят путешествовать? Все просто, когда человек путешествует, он познает окружающий мир и самого себя.
На земле очень много необычных уголков, красивых мест, которые заставляют пережить потрясающие эмоции, чувства.
Во время путешествия наполняешься энергией, силой, положительными эмоциями. Начинаешь ощущать гармонию и тесную связь человека с природой.
Удивительные страны, красивые пейзажи всегда манили романтиков. Многие писатели, музыканты, художники создавали произведения искусства после путешествий, которое наполняли их новыми ощущениями, меняли их взгляды на жизнь.
Когда человек начинает путешествовать, он меняется, ведь на него оказывает влияние новые страны, города, люди, природа. Мир становится более интересным и разнообразным, появляются новые друзья.
С давних времен люди не зная, что там за дальше, отправлялись в путешествие, их манила неизведанность, тайна, любопытство. И это было достаточно опасно, но несмотря на это, открывались новые города, страны, моря, океаны, материки. Сейчас современный человек знает многое, но отправляясь в путешествие, он по-прежнему открывает перед собой удивительный и неповторимый мир.
<em>E:\Видеозапись.avi</em>
<em>E:\График.xls</em>
<em>E:\Изображения\Аквариум.bmp</em>
<em>E:\Изображения\фото\Бия.jpeg</em>
<em>E:\Изображения\фото\Катунь.jpeg</em>
<em>E:\Тексты\буква.txt</em>
<em>E:\Тексты\цифры.doc</em>
<em>E:\Онегин.doc</em>
<em>E:\Мелодия.mp3</em>
<u>// PascalABC.NET 3.3, сборка 1625 от 17.01.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
uses GraphABC;
begin
var p1:=Arr((220,100),(260,100),(300,140),(240,140),(240,180),
(280,220),(280,280),(220,320),(160,320),(100,260),(140,260),
(180,220),(220,220),(200,180),(200,140));
DrawPolygon(p1); FloodFill(200,300,clYellow); // тело
p1:=Arr((160,320),(160,340),(200,340),(180,360),(160,340));
Polyline(p1); FloodFill(180,350,clDarkOrange); // лапа 1
p1:=Arr((220,320),(220,340),(260,340),(240,360),(220,340));
Polyline(p1); FloodFill(240,350,clDarkOrange); // лапа 2
Line(260,140,280,120); FloodFill(280,130,clRed); // клюв
Brush.Color:=clWhite; Circle(260,120,5); // контур глаза
Brush.Color:=clBlack; Circle(260,120,2) // зрачок
end.
Например для 45, полиндромом будет 54, а их произведение равно 2430.
Задание, по сути, очень простое для любых двузначных чисел.