Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.