С помощью оператора Readln, writlen, Random составить программу которая будет сравнивать число вводимое с клавиатуры со случайным числом в диапазоне от 0 до 100 результат выводится на экран.

program first;

var a, b: integer;

begin

randomize;

{Получаем значение с клавиатуры}

readln (a) ;

{Выбираем случайное число}

b: = random (100) ;

writeln (b) ;

{Сравниваем данные значения}

if a = b then writeln ('Данные числа равны')

else if a > b then writeln ('Первое число больше второго')

else if b > a then writeln ('Первое число меньше второго') ;

end.