Есть числа x,y,z надо найти min(x,y,z)

Var
  x,y,z,min:integer;
begin
  Write('Введите три целых числа: '); Readln(x,y,z);
  if x<y then min:=x else min:=y;
  if z<min then min:=z;
  Writeln('Min=',min)
end.

Тестовое решение:
Введите три целых числа: 2 3 1
Min=1

Код на с++: