Canon/open_set/90_multi_branch.pas

310 lines
20 KiB
ObjectPascal
Raw Permalink Normal View History

program main;
var a,res,n,i: integer;
begin
n := 2;
for i := 0 to n - 1 do
begin
res := 0;
a := 1;
if (a > 0) and (a < 100) then
if (a > 0) and (a < 99) then
if (a > 0) and (a < 98) then
if (a > 0) and (a < 97) then
if (a > 0) and (a < 96) then
if (a > 0) and (a < 95) then
if (a > 0) and (a < 94) then
if (a > 0) and (a < 93) then
if (a > 0) and (a < 92) then
if (a > 0) and (a < 91) then
if (a > 0) and (a < 90) then
if (a > 0) and (a < 89) then
if (a > 0) and (a < 88) then
if (a > 0) and (a < 87) then
if (a > 0) and (a < 86) then
if (a > 0) and (a < 85) then
if (a > 0) and (a < 84) then
if (a > 0) and (a < 83) then
if (a > 0) and (a < 82) then
if (a > 0) and (a < 81) then
if (a > 0) and (a < 80) then
if (a > 0) and (a < 79) then
if (a > 0) and (a < 78) then
if (a > 0) and (a < 77) then
if (a > 0) and (a < 76) then
if (a > 0) and (a < 75) then
if (a > 0) and (a < 74) then
if (a > 0) and (a < 73) then
if (a > 0) and (a < 72) then
if (a > 0) and (a < 71) then
if (a > 0) and (a < 70) then
if (a > 0) and (a < 69) then
if (a > 0) and (a < 68) then
if (a > 0) and (a < 67) then
if (a > 0) and (a < 66) then
if (a > 0) and (a < 65) then
if (a > 0) and (a < 64) then
if (a > 0) and (a < 63) then
if (a > 0) and (a < 62) then
if (a > 0) and (a < 61) then
if (a > 0) and (a < 60) then
if (a > 0) and (a < 59) then
if (a > 0) and (a < 58) then
if (a > 0) and (a < 57) then
if (a > 0) and (a < 56) then
if (a > 0) and (a < 55) then
if (a > 0) and (a < 54) then
if (a > 0) and (a < 53) then
if (a > 0) and (a < 52) then
if (a > 0) and (a < 51) then
if (a > 0) and (a < 50) then
if (a > 0) and (a < 49) then
if (a > 0) and (a < 48) then
if (a > 0) and (a < 47) then
if (a > 0) and (a < 46) then
if (a > 0) and (a < 45) then
if (a > 0) and (a < 44) then
if (a > 0) and (a < 43) then
if (a > 0) and (a < 42) then
if (a > 0) and (a < 41) then
if (a > 0) and (a < 40) then
if (a > 0) and (a < 39) then
if (a > 0) and (a < 38) then
if (a > 0) and (a < 37) then
if (a > 0) and (a < 36) then
if (a > 0) and (a < 35) then
if (a > 0) and (a < 34) then
if (a > 0) and (a < 33) then
if (a > 0) and (a < 32) then
if (a > 0) and (a < 31) then
if (a > 0) and (a < 30) then
if (a > 0) and (a < 29) then
if (a > 0) and (a < 28) then
if (a > 0) and (a < 27) then
if (a > 0) and (a < 26) then
if (a > 0) and (a < 25) then
if (a > 0) and (a < 24) then
if (a > 0) and (a < 23) then
if (a > 0) and (a < 22) then
if (a > 0) and (a < 21) then
if (a > 0) and (a < 20) then
if (a > 0) and (a < 19) then
if (a > 0) and (a < 18) then
if (a > 0) and (a < 17) then
if (a > 0) and (a < 16) then
if (a > 0) and (a < 15) then
if (a > 0) and (a < 14) then
if (a > 0) and (a < 13) then
if (a > 0) and (a < 12) then
if (a > 0) and (a < 11) then
if (a > 0) and (a < 10) then
if (a > 0) and (a < 9) then
if (a > 0) and (a < 8) then
if (a > 0) and (a < 7) then
if (a > 0) and (a < 6) then
if (a > 0) and (a < 5) then
if (a > 0) and (a < 4) then
if (a > 0) and (a < 3) then
if (a > 0) and (a < 2) then
res := res + 1
else
res := res + 2
else
res := res + 3
else
res := res + 4
else
res := res + 5
else
res := res + 6
else
res := res + 7
else
res := res + 8
else
res := res + 9
else
res := res + 10
else
res := res + 11
else
res := res + 12
else
res := res + 13
else
res := res + 14
else
res := res + 15
else
res := res + 16
else
res := res + 17
else
res := res + 18
else
res := res + 19
else
res := res + 20
else
res := res + 21
else
res := res + 22
else
res := res + 23
else
res := res + 24
else
res := res + 25
else
res := res + 26
else
res := res + 27
else
res := res + 28
else
res := res + 29
else
res := res + 30
else
res := res + 31
else
res := res + 32
else
res := res + 33
else
res := res + 34
else
res := res + 35
else
res := res + 36
else
res := res + 37
else
res := res + 38
else
res := res + 39
else
res := res + 40
else
res := res + 41
else
res := res + 42
else
res := res + 43
else
res := res + 44
else
res := res + 45
else
res := res + 46
else
res := res + 47
else
res := res + 48
else
res := res + 49
else
res := res + 50
else
res := res + 51
else
res := res + 52
else
res := res + 53
else
res := res + 54
else
res := res + 55
else
res := res + 56
else
res := res + 57
else
res := res + 58
else
res := res + 59
else
res := res + 60
else
res := res + 61
else
res := res + 62
else
res := res + 63
else
res := res + 64
else
res := res + 65
else
res := res + 66
else
res := res + 67
else
res := res + 68
else
res := res + 69
else
res := res + 70
else
res := res + 71
else
res := res + 72
else
res := res + 73
else
res := res + 74
else
res := res + 75
else
res := res + 76
else
res := res + 77
else
res := res + 78
else
res := res + 79
else
res := res + 80
else
res := res + 81
else
res := res + 82
else
res := res + 83
else
res := res + 84
else
res := res + 85
else
res := res + 86
else
res := res + 87
else
res := res + 88
else
res := res + 89
else
res := res + 90
else
res := res + 91
else
res := res + 92
else
res := res + 93
else
res := res + 94
else
res := res + 95
else
res := res + 96
else
res := res + 97
else
res := res + 98
else
res := res + 99
else
res := res + 100;
write(res);
end;
end.