Даны действительные числа x, y, z. Получить min(x, y, z) — Pascal(Паскаль)

var
x,y,z,min:integer;
begin
 readln(x,y,z);
 if x<y then min:=x else min:=y;
 if z<min then min:=z;
 writeln(min);

end.