Module: 条件运算符

var a, b, max: integer; 

begin 

    read(a, b); 

    if a > b then begin // заголовок - проверка условия 

        max := a; // если условие истинно, то выполняется блок операторов, стоящий после слова "if" (если) 

    end 

    else begin 

        max := b; // если условие ложно, то выполняется блок "else"  (иначе) 

    end; 

    writeln('Maximum ', max); 

end.