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.
1.
составной оператор - это скобки begin...end (в С образных языках для это используются реальные скобки {}) которые позволяют объединить несколько команд под одним оператором
if a > b then begin
с:=1;
d:=2;
end
else begin
c:=3;
d:=4;
end
2.
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.
1ый вариант безо всякого форматирования вывода - чисто сортировка.
2ой - вывод чуть красивше сделан, не знаю просто, надо или нет.