Exercice 1c

program Ex7_fromto;
function more (ligne: integer): integer;
begin
if ligne > 9 then
begin
readln;
more := 1;
end
else
more := ligne + 1;
end; { Fin de 'more' }

procedure fromtomore (n, p, m: integer);
begin
if n <= p then
begin
writeln(n : 0);
fromtomore(n + 1, p, more(m));
end;
end; { Fin de 'FromToMore' }

begin
writeln('Exercice: 1 c TD7 www.Software-DS.com');
writeln;
fromtomore(5, 75, 1);
writeln;
writeln('©2001 All Rights Reserved to www.Software-DS.com');
{ ©2001 All Rights Reserved to http://www.Software-DS.com 20/11/01 }
end.