Процедуры

   Процедура - подпрограмма, имеющая произвольное количество входных и выходных данных.

Описание процедуры имеет вид:

procedure <имя_процедуры> (<описание параметров-значений>);
   var: <описание параметров-переменных>;
   begin<операторы>
   end;


Напишем процедуру для нахождения наибольшего общего делителя двух чисел с помощью алгоритма Евклида. Используем её для нахождения наибольшего общего делителя следующих шести чисел: 16, 32, 40, 64, 80 и 128.

http://informat45.ucoz.ru/practica/9_klass/bosova/4_glava/9-4-17.png

Измените программу так, чтобы с её помощью можно было найти:
   а) наибольшее общий делитель следующих пяти чисел: 12, 24, 30, 48 и 30;
   б) наибольший общий делитель произвольных десяти целых двузначных чисел.

Функции
   
   Функция - подпрограмма, имеющая единственный результат, записываемый в ячейку памяти, имя которой полностью совпадает с именем функции. Поэтому в блоке обязательно должен присутствовать оператор <имя_функции>:=<результат>

function <имя_функции> (<описание входных данных>): <тип_функции>;
   begin
   <операторы>;
   <имя_функции> := <результат>
   end;


http://informat45.ucoz.ru/practica/9_klass/bosova/4_glava/9-4-18.png

Измените программу так, чтобы с её помощью можно было найти:
   а) максимальное из чисел a,b,c;
   б) максимальное из чисел b,c,d;
   в) минимальное из четырёх чисел;
   г) разность максимального и минимального чисел;