Что это за функция?, R>0.93 Опции

[Jaxx]

Вот нашел исходничек один. С виду - Паскаль. Но один момент меня просто убивает. Вот исходник:

uses
  Graph,Crt;
var
  Dt,M : integer;
  R,A,B,C,D,E,F,
  NewY,NewX,X,Y : real;
begin
  Dt := Detect;
  InitGraph(Dt, M,'');
  Randomize;
  X := 0; Y := 0;
  repeat
    R := Random;
    if R>0.93 then
    begin
      A := -0.15; B := 0.28; C := 0.26; D := 0.24; E := 0; F := 0.44;
    end
    else
    if R>0.86 then
    begin
      A := 0.2; B := -0.26; C := 0.23; D := 0.23; E := 0; F := 1.6;
    end
    else
    if R>0.01 then
    begin
      A := 0.85; B := 0.02; C := -0.02; D := 0.85; E := 0; F := 1.6;
    end
    else
    begin
      A := 0; B := 0; C := 0; D := 0.16; E := 0; F := 0;
    end;
    NewX := A*X + B*Y + E;
    NewY := C*X + D*Y + F;
    X := NewX; Y := NewY;
    PutPixel(Round(X*50)+100,Round(Y*50)+50, Green);
  until(Keypressed);
  CloseGraph;
end.

Может, я совсем дурак, но в упор не понимаю, что такое R>***.

[volvo]

Это не R&gt; - это R > 0.01 . Просто для того, чтобы вставить значок ">" в HTML-документ (сами знаки "<" и ">" ставить нельзя, это - теги), пользуются "&gt;"... Ну или "&lt;" соответственно для "<"

[Jaxx]

М-да... Как-то я и не допер. А ведь 3 года в HTML работаю. Во заглючило меня.

[Romtek]

Это, случаем, не отрисовка папоротника?

[volvo]

Romtek,
:yes: Оно самое... Во какой: