Вопрос помогите написать программу в паскале составить алгоритм нахождения наименьшего из 2х значений

[Acabovec]

помогите написать программу в паскале составить алгоритм нахождения наименьшего из 2х значений

 

[Den9]

read(x,y); if x<y then writeln(x) else writeln;

 

[proroc]

var x,y:real; begin read(x,y); writeln(ord(x>y)*y+ord(x<=y)*x) end.