[fpc-devel]urgent request/question

[j y]

please help. i need the code in below translated to
borland pascal:
let's say: num1min :=10  num1max :=20   num2min :=10 
num2ref :=100
Repeat 
(* some stuff go here *)
num1[a] := num1min + num1incr.
num2[a] := num2min + num2incr.
Until num2 > num2ref
Then like to print the results after the test is
stopped to screen/file:
If num1 <= num1min then print "val <= actual value of
num1min"
If num1min < num1 < num1max then print "val = actual
value of num1"
If num1 >= num1max then print "val >= actual value of num1max".

__________________________________________________
Do You Yahoo!?
Send FREE Valentine eCards with Yahoo! Greetings!
http://greetings.yahoo.com