Εύρεση μεγαλύτερου αριθμού

Να γίνει πρόγραμμα σε Pascal που να διαβάζει ν ακέραιους αριθμούς (το ν θα δίνεται από το χρήστη) και θα υπολογίζει και θα εμφανίζει το μεγαλύτερο αριθμό.

Λύση:

Program find_max;
var a,i,max,n:integer;
Begin
    write('Δώσε το πλήθος ν των αριθμών :');
    readln(n);
    write('Δώσε τον 1ο αριθμό :');
    readln(a);
    max:=a;
    for i:=2 to n do
    begin
        write('Δώσε τον ',i,'ο αριθμό :');
        readln(a);
        if a>max then
            max:=a;
    end;
    writeln('Ο μεγαλύτερος είναι ο :',max);
End.