fork download
  1. program ideone;
  2. uses crt;
  3. var Wsp1,i,Wsp2,WynikA,WynikB,n:integer;
  4. LiczbaB: array[1..10] of integer;
  5. LiczbaA: array[1..10] of integer;
  6. begin
  7. clrscr;
  8. n:= 0;
  9. WynikA:=0;
  10. WynikB:=0;
  11. Readln(Wsp1);
  12. ReadLn(Wsp2);
  13.  
  14.  
  15. Randomize;
  16. for i:=1 to 10 do
  17. begin
  18. LiczbaA[i]:= Random(100) + Wsp1;
  19. LiczbaB[i]:= Random(100) + Wsp2;
  20.  
  21. if( abs(LiczbaA[i] - LiczbaB[i]) > 40) then
  22. begin
  23. if(LiczbaA[i] > LiczbaB[i]) then
  24. begin
  25. WynikA := WynikA + 1;
  26. end
  27. else
  28. begin
  29. WynikB := WynikB + 1;
  30. end
  31. end
  32. else if (abs(LiczbaA[i] - LiczbaB[i]) > 20) then
  33. begin
  34. WynikA := WynikA + 1;
  35. WynikB := WynikB + 1;
  36. end;
  37.  
  38. writeln(LiczbaA[i], ' ', LiczbaB[i], ' ', LiczbaA[i]-LiczbaB[i]);
  39. writeln(WynikA,':',WynikB);
  40. Writeln();
  41. readkey;
  42. end;
  43.  
  44. end.
Success #stdin #stdout 0s 272KB
stdin
Standard input is empty
stdout
74 15 59
1:0

45 55 -10
1:0

85 12 73
2:0

93 64 29
3:1

54 61 -7
3:1

89 26 63
4:1

1 8 -7
4:1

66 75 -9
4:1

61 33 28

5:2


94 61 33

6:3