Oggi 18 gennaio...

Ciao a tutti...vi presento 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 t0 58 do
writeln (a);
readln;
end;
begin
eco
end.