Страница 155 §3.4 номер 9, ГДЗ по информатике за 8 класс к учебнику Босовой

Program z9;

var

  a,b,c,min:integer;

  j:char;

  begin

    write('Введи возвраст призеров А, В, С >');

    readln(a,b,c);

    min:=a; j:='A';

    if min>b then begin min:=b; j:='B' end;

    if min>c then begin min:=c; j:='C' end;

    writeln('Самый младший призер > ',j,' - его возраст> ',min);

  end.