Вот ловите пример:
Code
program NewProject;
var rand:integer;
begin
rand:=random(10); //Получаем случайное число от 0 до 10
drawText('Число: '+rand, 0, 0);//Выводим полученное число
repaint;
delay(10000);
end.
Для чего нужен рандом? Для многих полезных вещей, я например горячий приверженец этой функции, она помогает разнообразить мидлет, добавить свежести. Вот кида юниже пример случайного приветсвтия. Пример ПРОСТЕЙШИЙ, рандом позволяет делать моЩЩнейЩЩие веЩЩи:
Code
program NewProject;
var rand:integer;
begin
rand:=random(2); //Получаем случайное число от 0 до 2
if rand=1 then drawText('Привет!', 0, 0) else //проверяем условие
drawText('Здравствуйте!', 0, 0);
repaint;
delay(10000);
end.
полезная штука