Найти минимальное по модулю число в последовательности из трех чисел, которые произвольно задаются — Pascal(Паскаль)

program nums;
 
uses crt;
 
var
x,y,z,res:integer;
 
function min(a,b:integer):integer;
begin
if a<b then min:=a
else min:=b;
end;
 
BEGIN
 clrscr;
 
 readln(x,y,z);
 
 res:=min(x,y);
 res:=min(res,z);
 
 if (res div 10 = 0) then writeln('первая декада')
  else if (res div 10 = 1) then writeln('вторая декада')
   else writeln('третья декада');
 
 readkey;
END.