program test;

var 
total: Integer;
num: Integer;
left: Integer;

Begin
total:= 100;
WriteLn('Total is: ',total);
WriteLn('Enter a number!');
ReadLn(num);
if num > 100 then WriteLn('The number you entered is too big');
left:= total - num;
WriteLn(left, ' Left');

End.