Практическое задание 1. Даны два целых числа, отличных от нуля. Найдите их сумму, произведение, разность, частное.2. Дано трехзначное число. Найдите произведение их цифр.3. Дано пятизначное число. Найдите разность двух чисел. Первоечисло равно сумме цифр исходного числа, стоящих на четныхместах. Второе число равно сумме цифр, стоящих на нечетныхместах.T I4. Дано трехзначное число. Выведите на экран новое число, полученное из исходного путем перестановки цифр в обратномпорядке.5. Вывести на экран 8 раз фразу "Loading...".6. Найдите сумму 1+3+5+7+...+37.7. Найдите произведение 1.2.3 n.​

Вообще то, это задача чисто математическая.  Пусть есть трехзначное число abc.
По условию:

   abc
+ abc

   bca
Понятно, что максимальным число будет, если сложение в двух младших разрядах идет через перенос  ->  получим систему уравнений:
2c = a +16
2b +1 = c + 16
2a + 1 = b
равносильная ей система
2с = a + 16
c = 2b - 15
b = 2a + 1
подставляем третье во второе, получаем первые два уравнения
2с = a + 16
c = 4a - 13   из этих двух уравнений  ->   7a = 42  ->  a = 6  -> из третьего уравнения  b = 13
13 = D(16),   из первого уравнения  с = 22/2 = 11(10) = B(16)
->  abc(16) = 6DB(16) = 1755(10),     DB6(16) = 3510(10)   -> 2abc = bca

Program question;

var
   a: string;
   b: integer;

begin
     writeln('Сколько тебе лет?:');
     readln(b);
     if b > 17 then begin
                                 writeln('В каком институте ты учишься?:');
                                 readln(a);
                                 writeln(a, ' хороший институт');
                                 writeln('До следующей встречи!');
                            end
          else
     if b <= 17 then begin
                                 writeln('В какой школе ты учишься?');
                                 readln(a);
                                 writeln(a, ' не плохая школа');
                                 writeln('До следующей встречи!');
                                 end;
end.