Решение на фото.
Стараюсь быть лучшим для вас!
1. Скорость передачи данных.
2. Надёжность (передача данных без искажений).
3. Стоимость.
4. Резервы развития.
Enter.....................
1) переведем "37" в двоичную систему счисления, путем деления числа на два.
2) переведем дробную часть, умножая на два.
Решение смотри во вложении.
Program ddg2;
var
s: String[3];
begin
repeat
WriteLn('Хочу домой');
ReadLn(s);
until s = 'иди';
end.