program ideone;var b,c:integer;beginb:=16;c:=1;while (b<>4) do begin c:=(c+b)-3; b:=b-2; end; write(c);end.
Standard input is empty
49
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!