Блок-схема оператора if

У попередніх уроках ми розглянули найбільш простий, лінійний тип алгоритмів. Нагадаю, що всього існує три типи: лінійні, розгалуженння і циклічні (алгоритми з повтореннями).
На уроці: розглянемо другий тип алгоритмів - алгоритми з розгалуженнями.
Додому: задачі 1-15
Задачі для контролю:
1) Дано чотири числа. Знайти max i min.
2) Чи можна з трьох відрізків із заданими довжинами утворити трикутник?

Додатково:
Задачі цього розділу в першу чергу для тих, хто розпочинає займатися програмуванням та хоче в майбутньому брати участь у олімпіадах. Для їх розв'язку не потрібно спеціальних знань. Трішки математки, хіба що... http://www.olymp.vinnica.ua/index_ua.php?lng=ua&cid=80
Як корстуватися
1. Оберіть задачу.
2.Ознайомтесь з умовою, розв'яжіть задачу, виконуючи технічні умови.
3. На сторінці з умовою у вас є посилання для он-лайн перевірки.
4. На перевірку слід надсилати лише текст розв'язку, а не скомпільований файл!

НАПРИКЛАД:

Задача CUBE. Дано довжину ребра куба. Знайти його об’єм та площу всієї поверхні.

program cube;
var a:integer;
begin
 read(a);
 writeln(a*a*a,' ',a*a*6);
end.  

Задача Zamina. Дано 2  цілих числа, кожне із яких не більше 2·10^9 по модулю. Якщо ці числа рівні, замінити обидва числа на 0, якщо ні - меньше замінити більшим, а більше залишити без  змін.
program Zamina;
var a,b:longint;
begin
 read(a,b);
 if a=b then writeln(0,' ',0);
 if a>b then writeln(a,' ',a);
 if a<b then writeln(b,' ',b);
end. 


УСПІХІВ!