PROGRAM grval;
uses crt;

VAR max_val, a:INTEGER;

BEGIN
clrscr;
write ('Entrez une suite de valeurs, suivies par return ');
readln (a);
max_val := a;

  WHILE a > -1 DO
     BEGIN
     readln (a);
     IF a > max_val THEN max_val := a
     END;
  write ('Valeur maximum: ',max_val:10);
  readln

END.