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.
|