Составить алгоритм нахождения (это нужно делать в Паскале)

1) меньшего из двух чисел

2) меньшего из трех чисел

1. Меньшее из 2-х:

program Minimum;

var

a, b: integer;

begin

write ('введите 2 числа: ') ;

readln (a, b) ;

if a < b

then writeln ('минимум: ', a)

else writeln ('минимум: ', b) ;

end.

2. Меньшее из 3-х с помощью функции:

var

x1, x2, x3, mn: integer;

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

begin

if a < b

then min : = a

else min : = b

end;

begin

write ('введите 3 числа: ') ;

readln (x1, x2, x3) ;

mn : = min (x1, min (x2, x3)) ;

writeln ('минимум: ', mn) ;

end.