• Source
    1. program maximul_unui_sir;
    2. var i,max : integer;
    3. a : array[1..5] of integer;
    4. // Aflati cel mai mare termen al sirului
    5. begin
    6. for i:=1 to 5 do read(a[i]);
    7. max:= a[1];
    8. for i:=1 to 5 do
    9. if a[i] > max then max:= a[i];
    10. writeln('max = ',max);
    11. end.