program maximul_unui_sir;var i,max : integer; a : array[1..5] of integer; // Aflati cel mai mare termen al siruluibegin for i:=1 to 5 do read(a[i]); max:= a[1]; for i:=1 to 5 do if a[i] > max then max:= a[i]; writeln('max = ',max);end.