Операторные скобки

После  служебного  слова  then, или  после  служебного  else будет  выполняться  только  один оператор.  Если  необходимо,  чтобы  выполнялось  несколько  операторов их нужно  взять  в  операторные  скобки:

                   begin

end;

Группу операторов находящуюся внутри операторных скобок будем называть составным оператором. Фактически, весь раздел операторов, внутри операторных скобок, представляет собой один составной оператор.

Для того, чтобы при большом количестве операторных скобок, программа была более читаемая, end желательно записывать под begin.

Пример

Даны действительные числа x, y (x≠y). Меньшее из этих двух чисел заменить их суммой, а большее - их произведением.

var a,b,sa,sb:longint;

Begin

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

readln(a,b);

sa:=a;  sb:=b;

if a>b then

begin

b:=sa+sb;

a:=sa*sb;

end

else

begin

a:=sa+sb;

b:=sa*sb;

end;

writeln ('первоначальные числа  a=',sa,'  b=',sb);

writeln ('полученные  числа  a=',a,'  b=',b);

End.