Имеются данные о количестве полных лет трёх призёров спартакиады. Напишите программу выбирающую и выводящую возраст самого младшего призёра.

var     a,b,c,max:integer;begin    writeln('Введите возраст призеров:');    readln(a,b,c);    if (a < b) and (a < c) then    begin        max := a;        writeln('Самый младший - первый призер, ему ',max,' лет.');    end;    if (b < a) and (b < c) then    begin        max := b;        writeln('Самый младший - второй призер, ему ',max,' лет.');    end;    if (c < a) and (c < b) then    begin        max := c;        writeln('Самый младший - третий призер, ему ',max,' лет.');    end;end.