{ 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.