Главное меню delphi

THEN
arccos:=pi/2 
ELSE
arccos:=ArcTan(Sqrt(1-Sqr(x))/x) + Pi*Byte(x<0); 
End
; 
Заметим, что наличие служебного слова
ELSE
вовсе не обязательно, что и показано в этом 
примере. Такая ситуация встречается, если какое-либо действие требуется выполнить если условие 
истинно, а если условие не истинно, то просто пропустить его и продолжить выполнение программы. 
При выполнении условия ABS(x) > 1 происходит выдача сообщения об ошибке и программа оста-
навливается. Ясно, что если это условие не выполняется, то программа будет выполнять следующий 
оператор, поэтому наличие служебного слова 
ELSE
здесь излишне. Второй условный оператор поз-
воляет избежать ошибки при делении на нуль. Здесь уже служебное слово 
ELSE
необходимо.
Так как <оператор1> и <оператор2> суть произвольные операторы, то они могут содержать в 
себе другие условные операторы, таким образом реализуется 
структура вложенных логических опе-
раторов
.
 
IF 
a > b 
THEN begin 
IF 
a > c 
Then

---

22 
begin

max := a; 

IF 
b > c 
then 
min := c 
else 
min := b; 
end 
Else begin 
max := c; min := b; 
end
; 
end 
{THEN}
ELSE begin 
IF 
b > c 
Then
begin

max := a; 

IF 
b > c 
then 
min := c 
else 
min := b; 
end 
Else begin 
max := c; min := b; 
end
; 
end 
{ELSE} 
При вложениях условных операторов самое главное – не запутаться в вариантах условий (при 
чтении условных операторов большую помощь может оказать ступенчатая запись операторов, как 
показано в примере выше). Следует помнить, что всегда действует правило: альтернатива