Exercice 2

program plus_grand_entier;
var
i: integer;

begin
writeln('Recherche du plus grand entier de type integer:');
i := 0;
repeat
i := i + 1;
until i < 0;

writeln('Le plus grand entier est: ', i - 1 : 0);
writeln;
writeln('A titre d''information l''entier qui suit le plus grand entier est:');
writeln(i);
writeln('http://www.Software-DS.com');

{ ©2001 All Rights Reserved to http://www.Software-DS.com 02/10/01 }
end.