fork download
copy 
  1. program prefab;
  2. Uses math;
  3. var A,B,X,Y : longint;
  4.  
  5. Procedure scambia (var p,q: longint);
  6. var r:longint;
  7. begin
  8.    r:=p;
  9.    p:=q;
  10.    q:=r;
  11. end;
  12.  
  13. function assess(groundA, groundB, roofX, roofY: longint): longint;
  14. var res:longint;
  15. begin
  16.     if (groundA<groundB) then scambia(groundA, groundB);
  17.     if (roofX<roofY) then scambia(roofX, roofY);
  18.     if(groundA >= roofX) and (groundB >= roofY) then res:=0
  19.                  else
  20.                     if(groundA < roofX ) and (groundB < roofY) then res:=roofX*roofY - groundA*groundB
  21.                       else
  22.                         if(roofY>=groundB) then res:= ((roofY -groundB) div 2 + (roofY - groundB) mod 2) * roofX
  23.                             else
  24.                               if(roofX>=groundA) then res:=((roofX - groundA) div 2 + (roofX - groundA) mod 2) * roofY;
  25. assess:=res;
  26. end;
  27.  
  28.  
  29. begin
  30.     (*assign(input,  'input.txt');  reset(input);
  31.     assign(output, 'output.txt'); rewrite(output);*)
  32.     readln(A, B, X, Y);
  33.     writeln(assess(A, B, X, Y));
  34. end.
Success #stdin #stdout 0.01s 5288KB
comments (?)
stdin
copy 
12 14 18 15
stdout
copy 
102
https://ideone.com/2zZ0oM
language:
Pascal (fpc 3.0.4)
created:
14 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!