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

if логическое_выражение then оператор1;

Сначала вычисляется логическое выражение, если оно имеет значение TRUE, то выполняется оператор1, иначе оператор1 игнорируется.

Если по условию требуется выполнить несколько операторов, их необходимо заключить в операторные скобки begin...end;, образуя единый составной оператор :

Пр. if d>0 then begin

x1:=...;

x2:=...;

writeln (x1:8:3,x2:8:3);

end;

Пр. Вычислить y=max(a,b,c)

y:=a;

if b>y then y:=b;

if c>y then y:=c;

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