ECO

Questo programma è proposto per via ricorsiva utilizzando una funzione per renderlo in modo iterativo basta far scomparire la funzione integrandola nella parte principale del programma il main.
program ecoprogram;
uses crt;
var a:string; i:integer;
procedure eco;
begin
clrscr;
writeln('urla una parola e scrivila.....');
readln(a);
for i:=1 to 100 do
writeln(a);
readln;
end;
begin
eco
end.