Какую задачу выполняет программа

program pr1;
var a: array [1..5] of integer;
max,i: integer;
begin
for i:=1 to 5 do readln(a[i]);
max:=a[1];
for i:=2 to 5 do if a[i]>max then max:=a[i];
writeln( max);

end.