К операторам, позволяющим из нескольких возможных вариантов выполнения программы (ветвей) выбрать только один, относятся
if и case.
Для if  нам знаком формат:
if   <условие>   then   < оператор 1 > 

Вспомним задачи с оператором ветвления в паскале. 

Нахождения  наибольшего из двух чисел.
Решения:

надо вывести на экран первое число, если оно больше второго,

и второе, если оно больше первого.

  Program maximum ;
  var a, b, max: integer;
  begin
     writeln('Введите два целых числа');
     read ( a, b );
     if a > b then max:=a else max:=b;    
     writeln ('Наибольшее число ', max);
  end.

Преобразование цифрового преставления  (0..5) в его словесное(нуль…пять).

Решение:

Program perevod;

    var

    N: integer;

    begin

    write('Введите число:');

    readln(N);

    if N = 0 then

    writeln('Нуль');

    if N = 1 then

    writeln('Один');

    if N = 2 then

    writeln('Два ');

    if N = 3 then

    writeln( 'Три ');

    if N = 4 then

    writeln('Четыре');

    if N = 5 then

    writeln('Пять')

     else   writeln('Введено другое число. Введите меньше 6')

    end.

Использование структуры case ... of для перевода целого числа в его словесное представление

упрощает  программу

 Program perevod;

    var N: integer;

    begin

    write('Введите число:');

    readln(N);

    case N of

    0: writeln('Нуль');

    1: writeln('Один');

    2: writeln('Два' );

    3: writeln('Три ');

    4: writeln('Четыре');

    5: writeln('Пять')

    else writeln('Введено другое число. Введите меньше 6.')

    end;

    end.

Оператор case позволяет сделать выбор между несколькими вариантами.
Тип переключателя и типы всех констант должны быть совместимыми.

Циклы.

Сложно представить серьезную программу без циклов. Мы полагаем, что вы уже знакомы с циклами. В этом разделе будет рассмотрен ряд задач, для решения которых необходимо использовать циклы.

Напомним, что существуют три вида циклов:

    Оператор цикла с параметром,    оператор цикла с предусловием и  оператор цикла с постусловием²²²²²

Оператор цикла с параметром

Оператор цикла с предусловием выполняет действия заранее неизвестное число раз. Выход из цикла осуществляется, если некоторое логическое выражение или его результат окажется ложным. Так как верность логического выражения проверяется в начале, тело цикла может, не выполнится ни одного разу.

Пример:

Вывести на экран значение y² (y=1,2,…,10) в возрастающем и убывающем порядке

В примере два оператора цикла. Сначала  выбираются  числа от 1 до 10 и   возводится квадрат каждого.  Потом выводим квадраты чисел  в обратном порядке

Легко? Да.

А вот программа

Program kwadrat;

Uses crt;

Var k, y: integer;

Begin

Clrscr;

For y:=1 to 10 do

 Begin

        k:= sqr(y);

        Writeln (y:3,k:5);

    End;

Writeln;

For y:=10 downto 1 do

    Begin

         k:=sqr(y);

         Writeln (y:3,k:5);

     End;

Readln;

End.

Запустили. Всё понятно.

Задача 1: Монетки ДЗ