Program vetv;

Var

a,b,c:real;

Sr:real;

Begin

writeln('введите три числа');

Readln(a,b,c);

if (a>b) and (a>c) then

Begin

sr:=(b+c)/2;

writeln ('максимальное - ',a);

End

Else

if b>c then

Begin

sr:=(a+c)/2;

writeln ('максимальное - ',b);

End

Else

Begin

sr:=(a+b)/2;

writeln ('максимальное - ',c);

End;

writeln('среднеарифметическое - ', sr);

End.

Следует обратить внимание на то, что два оператора, находящиеся в ветке else или then, должны быть заключены в составной оператор (begin...end).

Оператор варианта (case)

Для организации каскада ветвлений может быть использован оператор выбора.

Синтаксис оператора case:

Case выражение_селектор of

Выражение_перечисления1: оператор1;

Выражение_перечисления2: оператор2;

...

[else операторN; операторN+1;]

End;

Оператор варианта приводит к выполнению оператора, которому предшествует выражение_перечисления, одному из значений которого равно значение выражения_селектора. Если такого выражения_перечисления не существует и присутствует ветвь else, то выполняется оператор, следующий за ключевым словом else. Если же ветвь else отсутствует, то никакой оператор не выполняется.

Выражение селектор должно иметь порядковый тип, и значения верхней и нижней границы этого типа должны лежать в диапазоне от -32768 до 32767. Таким образом, длинный целый тип является недопустимым типом переключателя.

Все выражения перечисления должны быть уникальными и иметь порядковый тип, совместимый с типом выражения селектора.

В качестве примера использования оператора case приведём программу, анализирующую введённый пользователем символ.

Текст программы на языке Pascal выглядит следующим образом: