fork(13) download
copy 
  1. program Bablische;
  2. var x, a : longint;
  3. begin
  4.      x:=1;
  5.      repeat 
  6.      a:=3200000+231435*x-380000*x;
  7.      x:=x+1;
  8.      until a<=0;
  9.      write (x);
  10.      readln
  11. end.
Success #stdin #stdout 0s 9120KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
23
https://ideone.com/PDvB7A
language:
Pascal (gpc 20070904)
created:
8 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!