fork download
copy 
  1. program decathlon;
  2. var X,Y:integer;
  3.  
  4. Function salta (X,Y:Integer):Integer;
  5. begin
  6.  if X<=Y then salta:=0
  7.          else salta:=500 + (X-Y);
  8. end;         
  9. begin
  10. 	readln(X,Y);
  11. 	writeln(salta(X,Y));
  12. end.
Success #stdin #stdout 0s 5320KB
comments (?)
stdin
copy 
1500 0
stdout
copy 
2000
https://ideone.com/Uo2mm2
language:
Pascal (fpc 3.0.4)
created:
5 hours 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!