Ребята, нужно очень Во второй картинке прислал вс решение, может момочь Прикреплю изображения, надо по этим данным сделать задания 5 и 6:
Иван Сидоров - 2002 (год рождения) - 165 (рост) - 70,0 (вес).

Григорий Смирнов - 2003 (год рождения) - 185 (рост) - 80,0 (вес).

Григорий Петров - 2002 (год рождения) - 168 (рост) - 68,0 (вес).

Александр Лыков - 2002 (год рождения) - 175 (рост) - 50,0 (вес).

Виктор Расторгуев - 2003 (год рождения) - 186 (рост) - 75,0 (вес).

Вообще то, это задача чисто математическая.  Пусть есть трехзначное число 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.