fpcsrc/tests/webtbs/tw3144.pp


1
2
3
4
5
6
7
8
9

{ Source provided for Free Pascal Bug Report 3144 }
{ Submitted by "Sergey Kosarevsky" on  2004-06-06 }
{ e-mail: netsurfer@au.ru }
Var S:Longint;

Begin
   S:=100-Random(200);
   writeln(S);
End.