дано два различных числа найдите из наименьшее из них числа любые числы

Ответы:

program len2975,

var i,j:integer,

begin

write(i=),read(i),

write(j=),read(j),

if j&gt,i then writeln(j,&gt,,i) else writeln(j,’&lt,,i),

end.