Оператор выбора CASE:
...
readln(a);
...
case a of
0 : writeln ('ноль');
1 : writeln ('один');
2 : writeln ('два');
3 : writeln ('три');
4 : writeln ('четыре');
5 : writeln ('пять');
6 : writeln ('шесть');
7 : writeln ('семь');
8 : writeln ('восемь');
9 : writeln ('девять');
end;
Условный оператор IF, ELSE
В простом виде:
if (<условие>)
then
<...>
else
<...>
Если внутри блоков с условиями идут несколько операторов, то используется операторная конструкция совместно с begin ... end
if (<условие>)
then
begin
<... 1>
<... 2>
...
end
else
begin
<... 1>
<... 2>
...
end;
Если а>mах и bif(a > max) and (b < min) then
c:= (a+b)/2;
else
c:= 0;