Question

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

Answer 1

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.