Что значит из строки? Формулируйте лучше. Можно делать через обычный массив, примерно так
var
Повторяешь условия цикла, заданое количество раз
Все числа имеют равный шанс "выпадания". Поэтому могло быть 15 вариантов событий, поэтому неопределённость знаний уменьшается в 15 раз. Сообщение, что выбрали одно число содержит 4 бита. Так как (15 ≈ 2^4) Ответ: 4 бита
Program n1;
var a,b: real;
begin
readln(a,b);
if a<b then a:=abs(a-b);
if b<a then b:=abs(a-b);
writeln(a,' ',b);
end.