program eco

ecco il programma dell'eco...

program ecoprogram;
uses crt;
var a:string; i:integer;
procedure eco;
begin
clrscr;
writeln('scrivi una parola..');
readln(a);
for i:=1 to 22 do
writeln(a);
readln;
end;
begin
eco;
end.