Finding the Maximum Score
program Maximum (input, output); var Score, Best, K, I: integer;
begin
write (‘How many scores are there? ‘);
read (K);
write (‘Input ‘, K:0, ‘ scores: ‘);
read (Best);
for I := 2 to K do
begin
read (Score);
if Score > Best then
Best := Score
end;
writeln (‘The maximum score is: ‘, Best:0)
end.