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

Question

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

Answer 1

Program hdjj;
Var z,x,y,p
Begin
Writeln('');
Read(x,z,y);
If (xWriteln(p);
End;
If (zWriteln(p);
End;
If (yWriteln(p);
End.