Заданы три числа-x,y,z найти минимальное из этих чисел результат записать в переменную p

Program hdjj;
Var z,x,y,p
Begin
Writeln('');
Read(x,z,y);
If (x<y) and (x<z) then p:=x;
Writeln(p);
End;
If (z<y) and (z<x) then p:=z;
Writeln(p);
End;
If (y<x) and (y<z) then p:=x;
Writeln(p);
End.