Составить программу для того, чтобы компьютер, используя генератор случайных чисел, записал на экране случайное число, значение которого лежит в пределах от 5 до 6 и имеет 2 знака в дробной части.

program sluch_chislo;

uses crt;
var
i : real;
a : string;
begin
clrscr;
Randomize;
writeln ('Для вывода следующего числа нажмите Enter');
writeln ('Для выхода из программы введите 0 и нажмите Enter');

while (true) do
begin
i := random(101)/100+5; //Случайное число от 5.00 до 6.00 включительно
writeln (i:6:2);

readln (a);
if a='0' then exit;
end;

end.

1. Так что предлагаю на сём остановиться.