fork download
copy 
  1. program excursion2;
  2. var
  3.     A, F, M, S, W : LongInt;
  4.  
  5. begin
  6. {   assign(input,  'input.txt');  reset(input);
  7.     assign(output, 'output.txt'); rewrite(output);}
  8.  
  9.     ReadLn(A);
  10.  
  11.     ReadLn(F);
  12.  
  13.     ReadLn(M);
  14.  
  15.     S := 2*M+3*F+A;
  16.     W := M+F+a;
  17.     WriteLn(S);
  18.     WriteLn(W);
  19.  
  20. end.
  21.  
Success #stdin #stdout 0s 5272KB
comments (?)
stdin
copy 
50
50
50
stdout
copy 
300
150
https://ideone.com/DnxJfc
language:
Pascal (fpc 3.0.4)
created:
10 days 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!