Короткий условный оператор

if условие then оператор1

Если условие истинно, т.е. выполняется, то выполняется оператор1. Если условие ложно, то выполняется оператор, следующий за оператором  if.

В качестве условий используются отношения. Отношения представляют собой записи равенств и неравенств.

Примеры отношений: a=b,  a>b,  x<=y,  sqr(x) >= a-b.

Условие может быть простым (состоять из одного отношения) и сложным (состоять из нескольких отношений, соединенных операциями or, and, not, xor).

Пример 1.

if x>y then  x := x/2;

Пример 2.

if (x>y) and (x>z) then 

                begin

                      m:=x;

                      writeln( 'x= ', x, ' - наибольшее из х, у, z');

                end;   

Полный условный оператор

if условие
    then
         begin
               {Эти команды выполняются, если условие истинно}
          end
    else
         begin
               {Эти команды выполняются, если условие ложно}
          end;

Пример 3.

if  D<0     
        then   writeln('Решений нет')
        else
             begin
                 x1:= (-b-sqrt(D))/(2*a);
                 x2:= (-b+sqrt(D))/(2*a);
                 writeln('х1 =' ,  x1:6:2 , '; x2 =' , x2:6:2)
              end; 

...