Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  ff
Language: PASCAL
Code:
var a,b,c,d:real;
begin
  A=-8; B=-21; ;
  C=-36; D=-36;
  if D>B then
  begin
    D=(D*B)+6;
    if C>B then
    begin
      C=(C mod B)*1;
      if (D>A) AND (B>C) then
      begin
        B=(A=B)+10;
        B=(A*D)*5;
      end;
      else
      begin
      end;
    end;
    else
    begin
      if C>A then
      begin
        C=(C+D)*6;
        A=(D mod B) mod 4;
      end;
      else
      begin
        C=(B-A) div 5;
      end;
      C=(D*C)*1;
    end;
  end;
  else
  begin
    if C>A then
    begin
      D=(B*D)+10;
      if B>C then
      begin
        readln(x);
        B=(B*A)+9;
        B=(B-D)+4;
      end;
      else
      begin
        C=(D div B) mod 4;
      end;
      B=(B*C)*3;
    end;
    else
    begin
      if (C > D) XOR (C > A) then
      begin
        C=(A-D)*8;
        B=(A mod D)*10;
      end;
      else
      begin
      end;
      C=(D-B)+2;
    end;
  end;
  writeln(A, B, C, D);
end;
end.


          
Comments: