fork download
copy 
  1. var
  2. 	x, y : Integer;
  3.  
  4. begin
  5. 	for x := 1 to 1000 do
  6. 		for y := 1 to 1000 do
  7. 			if 11*x+7*y=4228 then
  8. 				WriteLn (x, ' ', y)
  9. end.
Success #stdin #stdout 0s 232KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
7 593
14 582
21 571
28 560
35 549
42 538
49 527
56 516
63 505
70 494
77 483
84 472
91 461
98 450
105 439
112 428
119 417
126 406
133 395
140 384
147 373
154 362
161 351
168 340
175 329
182 318
189 307
196 296
203 285
210 274
217 263
224 252
231 241
238 230
245 219
252 208
259 197
266 186
273 175
280 164
287 153
294 142
301 131
308 120
315 109
322 98
329 87
336 76
343 65
350 54
357 43
364 32
371 21
378 10
https://ideone.com/rwSTZ6
language:
Pascal (fpc 3.0.4)
created:
10 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!