Question

Как в Паскале задать случайное число?

Answer 1

var
varMyRandomNumber, x, y := extended;

begin
x := 0;
y := 100;

varMyRandomNumber := random(x,y); ShowMessage(IntToStr(varMyRandomNumber));
end;

Answer 2

попробуй так