// Michael Moyer ACSL
Contest #1 Program
//Elizabethtown High School
//Intermediate-3
program golf;
var
hole,
totalpar, total1, total2, rel1, rel2, win1, win2, high, add:integer;
p1, p2,
par:array[1..9] of integer;
begin
// This loop enters all required information about par and
players
for hole:=
1 to 9 do
begin
writeln('Enter the par, player 1
score, and player 2 score of hole # ', hole:1);
writeln('Hit enter after each
entry!');
readln(par[hole], p1[hole], p2[hole]);
if p1[hole] > p2[hole] then
begin
win2:= win2 + 1;
end;
if p1[hole] < p2[hole] then
begin
win1:= win1 + 1;
end;
add:= p1[hole] + p2[hole];
if add > high then
begin
high:= add;
end;
end;
// This loop adds up totals for par player 1 and player 2
for the round
for hole:=
1 to 9 do
begin
totalpar:= totalpar + par[hole];
total1:= total1 + p1[hole];
total2:= total2 + p2[hole];
end;
if total1
> total2 then
begin
writeln;
writeln;
writeln(total2:1,', ', total1:1);
if total2 > totalpar then
begin
rel1:= total2 - totalpar;
writeln(rel1:1,' over par');
if total1 > totalpar then
begin
rel2:=
total1 - totalpar;
writeln(rel2:1,'
over par');
end;
if total1 < totalpar then
begin
rel2:=
totalpar - total1;
writeln(rel2:1,'
under par');
end;
if total1 = totalpar then
begin
writeln('par');
end;
end;
if total2 < totalpar then
begin
rel1:= totalpar - total2;
writeln(rel1:1,' under par');
if total1 > totalpar then
begin
rel2:=
total1 - totalpar;
writeln(rel2:1,'
over par');
end;
if total1 < totalpar then
begin
rel2:=
totalpar - total1;
writeln(rel2:1,'
under par');
end;
if total1 = totalpar then
begin
writeln('par');
end;
end;
if total2 = totalpar then
begin
writeln('par');
if total1 > totalpar then
begin
rel2:=
total1 - totalpar;
writeln(rel2:1,'
over par');
end;
if total1 < totalpar then
begin
rel2:=
totalpar - total1;
writeln(rel2:1,'
under par');
end;
if total1 = totalpar then
begin
writeln('par');
end;
end;
end;
if total2
> total1 then
begin
writeln;
writeln;
writeln(total1:1,', ', total2:1);
if total1 > totalpar then
begin
rel1:= total1 - totalpar;
writeln(rel1:1,' over par');
if total2 > totalpar then
begin
rel2:=
total2 - totalpar;
writeln(rel2:1,'
over par');
end;
if total2 < totalpar then
begin
rel2:=
totalpar - total2;
writeln(rel2:1,'
under par');
end;
if total2 = totalpar then
begin
writeln('par');
end;
end;
if total1 < totalpar then
begin
rel1:= totalpar - total1;
writeln(rel1:1,' under par');
if total2 > totalpar then
begin
rel2:=
total2 - totalpar;
writeln(rel2:1,'
over par');
end;
if total2 < totalpar then
begin
rel2:=
totalpar - total2;
writeln(rel2:1,'
under par');
end;
if total2 = totalpar then
begin
writeln('par');
end;
end;
if total1 = totalpar then
begin
writeln('par');
if total2 > totalpar then
begin
rel2:=
total2 - totalpar;
writeln(rel2:1,'
over par');
end;
if total2 < totalpar then
begin
rel2:=
totalpar - total2;
writeln(rel2:1,'
under par');
end;
if total2 = totalpar then
begin
writeln('par');
end;
end;
end;
if win1
> win2 then
begin
writeln(win1:1);
end;
if win1
< win2 then
begin
writeln(win2:1);
end;
writeln(high:1);
end.