Процедуры и функции в языке Паскаль

 Программа, содержащая описание функции выбора меньшего из двух аргументов. 

uses crt; 

function Min(a, b: integer): integer;

Begin

If a<b then Min:=a

else Min:=b

End; 

Var    x, y, z: integer; 

BEGIN

write (‘Первое число- ’);

readln (x);

write (‘Второе число- ’);

readln (y);

z:=Min(x, y);

writeln (‘Меньшее из двух чисел- ’,z);

END.  
 

Программа, содержащая описание процедуры удвоения  аргументов. 
 

Uses crt; 

Procedure Double (var x, y: integer);

Begin

x:=x+x;

y:=y+y;

End; 

Var   a, b: integer; 

BEGIN

write (‘Введите исходные данные’)’

readln (a);

readln (b);

double (a, b);

wrteln (‘Полученные данные- ’,a ,b);

END. 
 
 

Таблица 3 
 

Таблица 4