Exercice 1b

program ex1_fromto;

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

begin { Début du programme principal }
writeln('Exercice: 1 b TD7 (www.Software-DS.com)');
writeln;
fromto(3, 15);
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.