Короткий условный оператор
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;
...