Il pensiero di Pascal

codice:
begin

    pensiero := "";
    
    for i := 1 to y do begin
	pensiero:="guh";
        Writeln;
        Write(pensiero);
    end;
    
end;