Информатика 10 класс Pascal

 program AgeComparison;

type

  Person = record

    n: string;

    age: integer

  end;

var

  pers: array[1..3] of Person;



procedure swap(var a, b: Person);

var

  t: Person;

begin

  t := a; a := b; b := t;

end;



begin

  pers[1].n := 'Антон';

  pers[2].n := 'Борис';

  pers[3].n := 'Виктор';

  write('Введите возраст Антона, Бориса и Виктора в целых числах: ');

  readln(pers[1].age, pers[2].age, pers[3].age);

  if pers[1].age < pers[2].age then swap(pers[1], pers[2]);

  if pers[2].age < pers[3].age then swap(pers[2], pers[3]);

  if pers[1].age < pers[2].age then swap(pers[1], pers[2]);

  if pers[1].age > pers[2].age then

    writeln(pers[1].n, ' старше всех')

  else if pers[2].age = pers[3].age then

    writeln('Все одного возраста')

  else

    writeln(pers[1].n, ' и ', pers[2].n, ' старше ', pers[3].n, 'а')

end. 

 Program Vozrast; 

uses crt; 

var a, b, v: real; 

begin 

clrscr; 

writeln ('Введите возраст (только сами числа, например 20, если человеку 20 лет) людей поочередно. После ввода каждого числа нажимайте клавишу Enter. При вводе дробных значений целую часть от дробной отделяйте точкой, а не запятой.'); 

write ('Введите возраст Антона: '); 

readln (a); 

if a130 then writeln ('Эй, полегче! Люди столько не живут (к сожалению)!') else begin 

   write ('Введите возраст Бориса: '); 

   readln (b); 

   if b130 then writeln ('Эй, полегче! Люди столько не живут (к сожалению)!') else begin 

      write ('Введите возраст Виктора: '); 

      readln (v); 

      if v130 then writeln ('Эй, полегче! Люди столько не живут (к сожалению)!') else begin 

         if (a=b) and (a=v) then writeln ('Антон, Борис и Виктор - ровесники.') else 

         if (a>b) and (a>v) then writeln ('Антон старше всех.') else 

         if (b>a) and (b>v) then writeln ('Борис старше всех.') else 

         if (v>a) and (v>b) then writeln ('Виктор старше всех.') else 

         if (a=b) and (a>v) then writeln ('Антон и Борис старше Виктора.') else 

         if (a=v) and (a>b) then writeln ('Антон и Виктор старше Бориса.') else 

         if (b=v) and (b>a) then writeln ('Борис и Виктор старше Антона.'); 

         end; 

      end; 

   end; 

write ('Программа завершена. Для выхода нажмите клавишу Enter.'); 

readkey; 

end.